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