VBA, search and return a message

Maybe

Sub FindPhrase()
Dim Arr As Variant
Dim i As Long
Dim Rng As Range
Arr = Array("N o r m a l    t e r m i n a t i o n", "E r r o r   t e r m i n a t i o n")
   
For i = 0 To UBound(Arr)
    With Sheets("Info")
        Set Rng = .Columns(1).Find(What:=Arr(i), After:=.Cells(1, "A"), LookIn:= _
            xlFormulas, LookAt:=xlPart)
        
        If Not Rng Is Nothing Then
            .Range("B4").Value = "This analysis resulted in " & Arr(i)
        End If
    End With
Next i
End Sub

VBA Noob