Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)
Dim vSearchLine As String, found As Integer
found = InStr(SearchLine, SearchFor): vSearchLine = SearchLine
If found <> 0 Then
vSearchLine = ""
If found > 1 Then vSearchLine = Left(SearchLine, found - 1)
vSearchLine = vSearchLine + ReplaceWith
If found + Len(SearchFor) - 1 < Len(SearchLine) Then _
vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1)
End If
sReplace = vSearchLine
End Function

看样子是替换字符串（将第一出现的SearchFor字符串替换为ReplaceWith）……不知道为什么不用Replace函数……

这段代码功能是返回替换后的字符串，，，

不过也是一段问题代码，难道VB没报错？？？

功能上不如Replace函数 Replace还可以用[Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) 这些参数

不知道为什么要自己写个sReplace

哪里又问题？

功能上不如Replace函数……

这个过程只要替换第一次的，可能不想杀鸡用牛刀？

  

只是一个小地方：
If found <> 0 Then
vSearchLine = ""

我想应该会报没有end if吧！！！

If found + Len(SearchFor) - 1 < Len(SearchLine) Then _ '注意最后这里有个符号
vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1)

不过实话说楼主这代码还真不怎么好看……