如何创建替换方法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”，它不起作用并且找不到单词。