Сумма всех кратных чисел оканчивающихся на 4 - VB

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

Программа, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0. Кол-во чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4. Вот, что я сделал сам. Дальше не могу допереть. Form1 - 1

Private Sub_Command1_Click()
For i = 1 to 1000
bytX = Int(RND*90)
Rem Print bytX
If bytX = 0 then
GoTo 100
End if
If bytX / 6 = bytX \ 6 and (bytX - 4) / 10 = (bytX-4) / 10 then
Rem Text1.Text = bytX
bytY = bytY+bytX
 
end if
next i
100 text1.text = bytY
end sub
 
Private Sub Command2_Click()
end
end sub
 
Private Sub Form_Load()
Dim byxX as integer
Dim bytY as integer
Dim i as integer
end sub

Решение задачи: «Сумма всех кратных чисел оканчивающихся на 4»

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

                            Dim bytX As Integer
Dim Sum As Long
 
Private Sub Command1_Click()
Dim i As Integer
Cls
    For i = 1 To 1000
        Randomize
        bytX = Int(Rnd * 30000)
        'bytX = InputBox("Введите число.","Ввод данных",Int(Rnd * 30000))'Для ручного ввода
        Print bytX
        If bytX = 0 Then
            Exit For
        Else
            If bytX Mod 6 = 0 And CInt(Right(CStr(bytX), 1)) = 4 Then 'Конечно, не самое оптимальное решение
                 Sum = Sum + bytX
            End If
        End If
    Next i
    Text1.Text = Sum
End Sub
 
Private Sub Command2_Click()
End
End Sub
                        