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

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

Найти наибольшее из чисел. Если числа равны, то вывести любое из них. ВХОДНЫЕ ДАННЫЕ Во входном файле Z_1.in записаны числа через пробел. Все числа целые, не меньшие -10000 и не большие 10000. ВЫХОДНЫЕ ДАННЫЕ В файл Z_1.out вывести единственное число. ПРИМЕР Z_1.in 4 7 5 8 999 788 -10 -1000 -100 777 -55 9876 8 8 8 9 11 Z_1.out 999 9876 11 Моя проблема в том, что программа сравнивает только первые три числа, то есть выводит только 7; -10; 8 а надо чтобы программа независимо от длины строки искало максимальное число. КОД ПРОГРАММЫ на языке 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
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

И ещё один вопрос. Как сделать свой целочисленный тип данных от -10000 до 10000?

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

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