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

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

Найти наибольшее из трех чисел. Если числа равны, то вывести любое из них. ВХОДНЫЕ ДАННЫЕ Во входном файле Z_1.in записаны три числа через пробел. Все числа целые, не меньшие -10000 и не большие 10000. ВЫХОДНЫЕ ДАННЫЕ В файл Z_1.out вывести единственное число. ПРИМЕР Z_1.in 4 7 5 -10 -1000 -100 8 8 8 Z_1.out 7 -10 8 Моя проблема в том, что программа выводит только число -10, вместо чисел 7; -10; 8 Помогите решить данную задачу на языке Visual basic 6 КОД ПРОГРАММЫ на языке Visual basic 6:

                    Листинг программы
                
 
                        
                          
                    
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
Do While Not EOF(1)
Input #1, a, b, c
   If a > b And a > c Then max = a
    If a < b And b > c Then max = b
    If a < c And c > b Then max = c
    If a = b = c Then max = a
Loop
Close #1
  Open "C:\vvod_vyvod\Z_1.out" For Output As #1
   Write #1, max
  Close #1
End Sub

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
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 a < b And b > c Then max = b
If a < c And c > b Then max = c
If a = b = c Then max = a
Write #2, max
Loop
Close #1
Close #2
End Sub