Visual Basic - находится номер билетика (будем считать номер шестизначным числом). Определить является ли билет счастливым

[s2df]

В переменной intNumber (тип Integer ) находится номер трамвайного билетика (будем считать номер шестизначным числом). Необходимо определить является ли билет счастливым или нет. Для решения задачи используйте только математические операции. При необходимости, объявите и используйте дополнительные переменные. Опишите каждую объявленную переменную.
Спасибо

[gaw4]

четных цифр или цифр, расположенных на четных местах

и потом (тип Integer ) находится номер трамвайного билетика (будем считать номер шестизначным числом)
тип Integer От -32 768 до 32 767

[s2df]

например он должен вывести счасливый

[gaw4]

для длинного целого

 Dim intNumber&, S1&, S2&, c, p%
 intNumber = 122111 '183056
 
 S1 = 0: S2 = 0
 
 Do While intNumber > 0
    c = d(intNumber)
    p = c / 2
        If 2 * p = c Then S2 = S2 + c Else S1 = S1 + c
 Loop
 
 MsgBox S1 & " " & S2 & " " & (S1 = S2)
End Sub
Function d&(N&)
Dim p&
 p = N / 10
 d = N - 10 * p
 N = N / 10
   If d < 0 Then
       d = 10 + d: N = N - 1
   End If
End Function

[gaw4]

для целого

Private Sub Command1_Click()
 Dim intNumber%, S1%, S2%, c, p%
 On Error GoTo er
 intNumber = 20101  '183056
 
 S1 = 0: S2 = 0
 
 Do While intNumber > 0
    c = d(intNumber)
    p = c / 2
        If 2 * p = c Then S2 = S2 + c Else S1 = S1 + c
 Loop
 
 MsgBox S1 & " " & S2 & " " & (S1 = S2)
 Exit Sub
er: MsgBox Err.Description & vbNewLine & "intNumber e [1;32467] !!!"
 Err.Clear
End Sub
Function d%(N%)
Dim p%
 p = N / 10
 d = N - 10 * p
 N = N / 10
   If d < 0 Then
       d = 10 + d: N = N - 1
   End If
End Function