Выбрать наименьшее из трёх чисел - VB

Private Sub Form_Load()
    Dim i(6) As Variant
    For i(5) = 0 To 2
        Do: i(6) = InputBox("Введите " & i(5) + 1 & "-е число", , i(5) + 1)
            If i(6) = "" Then Exit Sub Else i(i(5)) = i(6)
        Loop Until IsNumeric(i(6))
        If i(5) Then 'В вариантном сравнении нельзя допустить текстового сравнения, поэтому CDbl(..
            If CDbl(i(i(5))) < CDbl(i(3)) Then i(3) = i(i(5))
            If CDbl(i(i(5))) > CDbl(i(4)) Then i(4) = i(i(5))
        Else: i(3) = i(0): i(4) = i(0)
        End If
    Next
    i(6) = "Наименьшее из чисел A, B, C - число D, наибольшее E"
    For i(5) = 0 To 4: i(6) = Replace(i(6), Chr(i(5) + 65), i(i(5))): Next: MsgBox i(6)
End Sub