strWeb=replace(title,"maN","www.MAn",1,-1,1)

replace函数参数详解:
参数1：源字符串
参数2：要被替换的字符
参数3：新的字符。，既，要将源字符串中的某些字符，替换成新指定的字符
参数4：值为1.指定从第一个字符开始搜索该字符串
参数5：值为－1 指定每一个子串都要被替换
参数6：值为1 指定字符串的比较不区分大小写。

新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim strWeb As String
    strWeb = "MaNongKu.com"
    MsgBox Replace(strWeb, "maN", "www.MAn", 1, -1, 1)
End Sub