Найти наибольшее из чисел. Если числа равны, то вывести любое из них

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
Private Sub Command1_Click()
Open "C:\vvod_vyvod\Z_1.in" For Input As #1
Open "C:\vvod_vyvod\Z_1.out" For Output As #2
Do While Not EOF(1)
Input #1, a, b, c
If a >= b And a >= c Then max = a
If b >= a And b >= c Then max = b
If c >= a And c >= b Then max = c
 
Write #2, max
Loop
Close #1
Close #2
End Sub

Dim a()
Dim max As Integer, i As Integer
Dim s As String
 
Private Sub Command1_Click()
Open "C:\vvod_vyvod\Z_1.in" For Input As #1
Open "C:\vvod_vyvod\Z_1.out" For Output As #2
Do While Not EOF(1)
Line Input #1, s
a = Split(s)
max = a(0)
For i = 1 To UBound(a)
  If a(i) > max Then max = a(i)
Next i
Write #2, max
Close #1
Close #2
End Sub

Do While Not EOF(1)
...
loop

Dim a()
Dim max As Integer, i As Integer
Dim s As String
 Private Sub Command1_Click()
Open "C:\vvod_vyvod\Z_1.in" For Input As #1
Open "C:\vvod_vyvod\Z_1.out" For Output As #2
[B]Do While Not EOF(1)[/B]
Line Input #1, s
a = Split(s)
max = a(0)
For i = 1 To UBound(a)
  If a(i) > max Then max = a(i)
Next i
Write #2, max
[B]loop[/B]
Close #1
Close #2
End Sub

Dim a() As String
Dim max As Integer, i As Integer
Dim s As String
 
Private Sub Command1_Click()
Open "c:\vvod_vyvod\Z_1.in" For Input As #1
Open "c:\vvod_vyvod\Z_1.out" For Output As #2
Do While Not EOF(1)
  Line Input #1, s
  a = Split(s)'разбиваем строку по пробелам
  max = a(0)'инициализируем начальное значение max по первому числу строки
  For i = 1 To UBound(a)'перебираем остальные числа
    If a(i) > max Then max = a(i)
  Next i
  Write #2, max
Loop
Close #1
Close #2
End Sub

If a(i) > max Then

a = Split(trim(s))'разбиваем строку по пробелам