Вывести слова,в которых есть сочетание букв ам или ма

Sub d3()
Dim slovo() As String
Dim i As Integer, n As Integer
Dim result1 As Boolean
Dim result2 As Boolean
 
n = Val(InputBox("Введите колмчество слов: "))
ReDim slovo(n)
 
For i = 1 To n
    slovo(i) = Val(InputBox("Введите слово на наборе слов ", i))
Next i
 
result1 = True
result2 = True
 
For i = 1 To n
 
    result1 = slovo(i) Like "*ма*"
    result2 = slovo(i) Like "*ам*"
    
        If result1 = True Then
            MsgBox "Слово, с комбинацией букв ма : " & slovo(i)
        ElseIf result2 = True Then
            MsgBox "Слово, с комбинацией букв ам : " & slovo(i)
        End If
        
Next i
 
End Sub

If result1 = True and result2 = True Then
            MsgBox "Слово, с комбинациями букв ма и ам : " & slovo(i)
        ElseIf result1 = True Then
            MsgBox "Слово, с комбинацией букв ма : " & slovo(i)
        ElseIf result2 = True Then
            MsgBox "Слово, с комбинацией букв ам : " & slovo(i)
        End If