Оператор сравнения - VB

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

есть 6 окон: 1 окно имя студента 2 окно бал его 3 окно имя студента 4 окно бал его 5 окно имя студента 6 окно бал его как сделать вывод максимальный бал и имя этого человека ? мучаюсь уже третие сутки до 3х ночи, уже готов бросить Visual Basic

Решение задачи: «Оператор сравнения»

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

                            Private Sub CommandButton1_Click()
    Dim n As Integer
    n = MaxNum(2, MaxNum(4, 6))
    MsgBox "Максимальный балл -  " & VR(n) & vbCrLf & "Cтудент - " & Me.Controls("TextBox" & (n - 1))
End Sub
 
Private Function MaxNum(ByVal a As Integer, ByVal b As Integer) As Integer
    If VR(a) < VR(b) Then MaxNum = b Else MaxNum = a
End Function
 
Private Function VR(ByVal n As Integer) As Double
     VR = Val(Replace(Me.Controls("TextBox" & n), ",", "."))
End Function
                        