Запросить у пользователя 10 чисел и вывести три наименьших числа - VB

Sub ThreeMin()
Dim A(10) As Integer, M1 As Integer, M2 As Integer, M3 As Integer, i As Integer, Mes As String
For i = 1 To 10
Mes = "Введите" & Str(i) & "-ое число"
A(i) = InputBox(Mes)
Next i
M1 = A(1): M2 = A(1): M3 = A(1)
For i = 2 To 10
If (A(i) < M1) Then M1 = A(i)
Next i
For i = 2 To 10
If (A(i) > M1) And (A(i) < M2) Then M2 = A(i)
Next i
For i = 2 To 10
If (A(i) > M2) And (A(i) < M3) Then M3 = A(i)
Next i
Mes = Str(M1) & "; " Str(M2) & "; " Str(M3)
MsgBox (Mes)
End Sub