Выходит за пределы массива - VBA

Sub Test()
    Open "C:\Users\user\Desktop\Ucheba\Inform 2\f2.txt" For Input As #1
    Dim Str1() As String
    Dim Str2, Str3 As String
    Str3 = ""
    Do While Not EOF(1)
    Line Input #1, Str2
    Str1 = Split(Str2)
    For i% = 0 To UBound(Str1)
    If Len(Str1(i)) > 1 Then
        If Str1(Len(Str1(i)) - 2) Like "[уеыаоэяию]" Then
        Str3 = Str3 + " " + Str1(i)
        End If
            
    End If
        
    Next i
    Loop
    Close #1
    MsgBox (Str3)
End Sub