Private Sub Form_Load()

Dim n, Average As Integer
Do
For x = 1 To 10
n = InputBox("Enter a number" & x)
Average = Average + n / 10
lblNumbers.Caption = Str(n) + " " + lblNumbers.Caption
 Next x
 
 
         
 Loop Until n = n
lblAverage.Caption = Average

End Sub

(i'm a beginner and i want the answer be highest to lowest i appreciate if you can help me Thanks.)