Дано трехзначное число, верно ли, что всего его цифры одинаковы - VB

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

Здравствуйте. Очень надеюсь на вашу помощь в решении задач, так как я полный ноль в программировании на языке Visual Basic. Все, что я знаю - это задачи на условные операторы и, кажется, на массивы, но в моем классе учатся по самоучителю, а в нем все в кашу. Учитель нам ничего не объясняет, приходится доходить своим умом. В общем, помогите пожалуйста в решении следующих задач: 1. Дано трехзначное число, верно ли, что всего его цифры одинаковы? 2. Дано четырехзначное число, определить, кратно ли произведение его цифр числу а. 3. Даны три целых числа, вывести на экран те из них, которые являются четными. 4. Даны четыре целых числа. Определить сумму тех, которые кратны трем.

Решение задачи: «Дано трехзначное число, верно ли, что всего его цифры одинаковы»

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

                            Dim a As String
Dim b As String
Dim Г± As String
Dim d As String
Dim otv As Integer
 
a = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®1")
b = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®2")
c = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®3")
d = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®4")
 
 
If CInt(a) Mod 3 = 0 Then
otv = otv + a
End If
If CInt(b) Mod 3 = 0 Then
otv = otv + b
End If
If CInt(c) Mod 3 = 0 Then
otv = otv + c
End If
If CInt(d) Mod 3 = 0 Then
otv = otv + d
End If
MsgBox (otv)
                        