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

Формулировка задачи:

Люди, помогите. У нас скоро зачет, а учитель ничего не объяснял, а самообразование не привело к нужному результату. Суть проблемы: необходимо написать программу, со счетчиком While, которая бы определяла является число палиндромом. P.s : я рылся по форуму, находил программы, но они довольно сложны для моего понимания, если не сложно, то взять такую программу и написать что для чего.

Решение задачи: «Как определить является ли число палиндромом»

textual
                            Листинг программы 
                        

                            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
                        