Check Palindrom Number By VB6

Public Function pow(base As Integer, power As Integer) As Long
Dim s As Long
s = 1
For i = 1 To power
s = s * base
Next
pow = s
End Function


Private Sub Form_Load()

Dim k As Long 'To store the entered number
Dim s As String 'to put the number into ti and get the length

k = Val(InputBox("enter Number"))
s = CStr(k)
Dim size As Byte 'to store the length into it
size = Len(s)
Dim x, y, z, i As Integer
If size Mod 2 = 0 Then
x = k \ pow(10, size / 2)
y = k Mod pow(10, size / 2)
Else
x = k \ pow(10, (size \ 2) + 1)
y = k Mod pow(10, size / 2)
size = size - 1
End If

For i = 1 To size / 2
z = z + ((y Mod 10) * pow(10, (size / 2) - i))
y = y \ 10
Next
If z = x Then
MsgBox k & " is Palindrome Number"
Else
MsgBox k & " is NOT Palindrome Number"
End If
End

End Sub