Проверка корректности введенных данных в текстовые поля - VB

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

Здравствуйте. Хотелось бы узнать что не так в моем коде( не судите строго еще плохо разбираюсь в программировании).Необходимо чтобы если в текстовые поля 1-6 введены значения 0 или другие символы кроме цифр, то выводились соответствующие сообщения, а также желательно, чтобы поле, куда введено неправильное значение поменяло цвет. Заранее спасибо

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim A(2, 3) As Variant
A(1, 1) = Val(Text1.Text)
A(1, 2) = Val(Text2.Text)
A(1, 3) = Val(Text3.Text)
A(2, 1) = Val(Text4.Text)
A(2, 2) = Val(Text5.Text)
A(2, 3) = Val(Text6.Text)
 
If Not IsNumeric(Text1.Text) Or Not IsNumeric(Text2.Text) Or Not IsNumeric(Text3.Text) Or Not IsNumeric(Text4.Text) Or Not IsNumeric(Text5.Text) Or Not IsNumeric(Text6.Text) Then
Text13.Text = "Нужно ввести букву, а не цифры"
End If
If Textbox1 = 0 Or Textbox2 = 0 Or Textbox3 = 0 Or Textbox4 = 0 Or Textbox5 = 0 Or Textbox6 = 0 Then
Text13.Text = "Введите значение, не равное нулю"
 
Else
Text7.Text = A(1, 1) / A(2, 1)
Text8.Text = A(1, 2) / A(2, 1)
Text9.Text = A(1, 3) / A(2, 1)
Text10.Text = A(2, 1) / A(2, 1)
Text11.Text = A(2, 2) / A(2, 1)
Text12.Text = A(2, 3) / A(2, 1)
End If
End Sub

Решение задачи: «Проверка корректности введенных данных в текстовые поля»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Text1_Change()
If IsNumeric(Text1) Then
    If CLng(Text1) > 0 Then
        Text1.BackColor = vbWhite
        text13 = ""
    Else
        Text1.BackColor = vbRed
        text13 = "Введен ноль"
    End If
Else
    Text1.BackColor = vbRed
    text13 = "Введено не число"
End If
End Sub