Напечатать числа, которые содержат ноль в среднем разряде - VB

Private Sub Command1_Click()
Dim A(1 To 3) As Integer, k As Integer
k = 0
For i = 1 To 3
  A(i) = InputBox("Введите число №" & i, "Ввод числа", "000")
  If IS_MID_NULL(A(i)) Then Print "Число №" & i & " имеет ноль в центре. Оно равно: " & A(i): k = k + 1
Next
Print "Всего чисел, имеющих ноль в середине: " & k
End Sub
Function IS_MID_NULL(NUMBER As Integer) As Boolean
Dim TMP As Integer
TMP = NUMBER \ 10
If TMP Mod 10 = 0 Then IS_MID_NULL = True Else IS_MID_NULL = False
End Function