Напечатать "Да", если зарплата мамы и папы, сложенные вместе и поделённые на кол во членов семьи превышает 6500 р - VB

Const n As Integer = 10
Const PM As Double = 6500
Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To n
    If Val(Text3(i).Text) > 0 Then
        If (Val(Text1(i).Text) + Val(Text2(i).Text)) / Val(Text3(i).Text) < PM Then
           Text4(i).Text = "Да"
           Text4(i).BackColor = vbGreen
        Else
           Text4(i).Text = "Нет"
           Text4(i).BackColor = vbRed
        End If
    Else
        Exit Sub
    End If
    Next i
End Sub
 
Private Sub Form_Load()
    Dim i As Integer, Fam
    Fam = Array("", "Иванов А. С.", "Баранов И. О.", "Лукьянов А. А.", "Щукин Г. Д.", "Скобелев А. Н.", "Усолцев Ю. Ю.", "Раковский Н. В.", "Муратов М. М", "Морарь Е. Н.", "Белый М. А.", "")
    For i = 1 To n
        Load Text1(i): Text1(i).Top = Text1(i - 1).Top + Text1(i).Height: Text1(i).Visible = True
        Load Text2(i): Text2(i).Top = Text2(i - 1).Top + Text2(i).Height: Text2(i).Visible = True
        Load Text3(i): Text3(i).Top = Text3(i - 1).Top + Text3(i).Height: Text3(i).Visible = True
        Load Text4(i): Text4(i).Top = Text4(i - 1).Top + Text4(i).Height: Text4(i).Visible = True
        Load Text5(i): Text5(i).Top = Text5(i - 1).Top + Text5(i).Height: Text5(i).Visible = True
        Text5(i).Text = i & ". " & Fam(i)
    Next i
    Text1(0).Text = "З/п отца": Text2(0).Text = "З/п матери": Text3(0).Text = "Кол-во членов.": Text4(0).Text = "Да/Нет": Text5(0).Text = "Ф.И.О студента"
    Me.Height = Text1(n).Top + Text1(n).Height * 3
End Sub