Как я могу создать метод замены Visual Basic

Question

Private Sub Command1_Click()
    Dim s, f, r, d As String

    s = t1.Text
    f = InputBox("Find")
    r = InputBox("Replace")
    d = Replace(s, f, r)

    If s = f Then
        l1.Caption = f & " " & "replaced to" & " " & r
        t1.Text = d
    Else
        l1.Caption = "Not found"
    End If

End Sub

Вот мой маленький код

Он работает, но может найти слово, когда просто одиночное слово написало в текстовом поле.

Пример:

«амир»

Он его найдет.Но когда это

«Амир Хасан Резазаде»

И я хочу найти “hassan”, он не работает и не может найти слово.