In questo momento non ricordo se esiste una funzione specifica
del VB che ti estrae il "MAX" numero (poi controllo nel manuale)

CMQ puoi risolvere creando una funzione tutta tua
codice:
Private Sub Form_Load()
    Dim vectINPUT(5), i, j, temp As Integer
    vectINPUT(0) = 10
    vectINPUT(1) = 70
    vectINPUT(2) = 1
    vectINPUT(3) = 11
    vectINPUT(4) = 69
    'ordina i 5 numeri in modo crescente (bubble-sort)
    For i = 0 To 4
        For j = 0 To 4
            If vectINPUT(i) < vectINPUT(j) Then
                temp = vectINPUT(j)
                vectINPUT(j) = vectINPUT(i)
                vectINPUT(i) = temp
            End If
        Next j
    Next i
    'stampa a video il valore più alto
    Text1 = vectINPUT(4)
End Sub