Счастье есть! задачка: счастливый билетик или нет - VB

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

Здравствуйте, Уважаемые программисты!!!!! И вновь не могу дойти до завершения работы....Помогите пожалуйста доделать проект!!! Нужно было составить проект, чтобы определялось, счастливый билетик или нет. У меня эт получилось!!!! Вот алгоритм:

Dim N As Byte, Zk As String, Zn As String, Fr As String
Private Sub Command1_Click()
    Fr = Text1.Text
    N = Len(Fr)
    Text2.Text = ""
For i = 1 To N
    Zn = Mid(Fr, i, 1)
    Zk = Mid(Fr, N + 1 - i, 1)
    
       If Zk = Zn Then Text2.Text = "не является счастливым билетом"
Next
    If Text2.Text = "" Then Text2.Text = "счастливый билет"
End Sub

А еще нужно доработать проект на предмет определения, а сколько всего шестизначных билетиков существует??????? Совсем ничего не получается....Может вы сможете помочь....Очень нужно, пожалуйста!!!!!!!!!!!!!!!!!!!

Решение задачи: «Счастье есть! задачка: счастливый билетик или нет»

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