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

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

Запросить у пользователя 10 чисел и вывести три наименьших числа. Код на VB, где 17 строчка выделяет красным, пишет ошибку

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

Решение задачи: «Запросить у пользователя 10 чисел и вывести три наименьших числа»

textual
                            Листинг программы 
                        
                            Mes = Str(M1) & "; " & Str(M2) & "; " & Str(M3)