Как определить является ли число палиндромом

Function isPalindrom(n as integer) As Boolean
  isPalindrom=(StrReverse(Cstr(n))=Cstr(n))
End Function

Private Sub Command1_Click()
If IsNumeric(Text1) Then
    If Text1 = StrReverse(Text1) Then
        MsgBox "Палиндром", vbInformation
    Else
        MsgBox "Не палиндром", vbExclamation
    End If
Else
    MsgBox "Не число", vbCritical
End If
End Sub

Private Sub Command1_Click()
Dim s$, i&, j&
s = Text1
If IsNumeric(s) Then
    i = 1
    j = Len(s)
    While i < j
        If Mid$(s, i, 1) <> Mid$(s, j, 1) Then
            MsgBox "Не палиндром", vbExclamation
            Exit Sub
        End If
        i = i + 1
        j = j - 1
    Wend
    MsgBox "Палиндром", vbInformation
Else
    MsgBox "Не число", vbCritical
End If
End Sub

Function isPal(n As Integer, Optional p As Integer = 1) As Boolean
   If n <= 9 Then
      isPal = True
   ElseIf (n < p * 10) And (n >= p) Then
      If (n \ p) = (n Mod 10) Then isPal = isPal((n Mod p) \ 10)
   Else
      isPal = isPal(n, p * 10)
   End If
End Function

Function isPali(n As Integer) As Boolean
Dim dig(1 To 5) As Integer ' здесь будут цифры
Dim i           As Integer
Dim j           As Integer
 
    isPali = True
 
    For i = 1 To 5
        dig(i) = n Mod 10 ' младшая цифра
        n = n \ 10          ' отбрасываем младшую цифру
        If n = 0 Then      ' число кончилось? 
           j = i               ' j=к-ву цифр
           Exit For
        End If
    Next i
    
    i = 1
    
    Do While (i <= j)             ' в цикле сравниваем соотв. цифры с конца и начала
       If dig(i) <> dig(j) Then  ' не совпали
          isPali = False
          Exit Do
       End If
       i = i + 1
       j = j - 1
    Loop
 
End Function

Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
If IsNumeric(a) Then
b = 1
c = Len(a)
Do While b < c
If Mid$(a, b, 1) <> Mid$(a, c, 1) Then
MsgBox "Íå ïàëèíäðîì", 64, "Ðåçóëüòàò"
Exit Sub
End If
If Mid$(a, b, 1) = Mid$(a, c, 1) Then
MsgBox "Ïàëèíäðîì", 64, "Ðåçóëüòàò"
Exit Sub
End If
b = b + 1
DoEvents
c = c - 1
Loop
MsgBox "Íå ÷èñëî", 16, "Ðåçóëüòàò"
End If
End Sub