Аргументы: strString - строка, strFind - строка которую нужно заменить, strReplace - строка на что меняем
Назначение: Замена символов в строке
Возвращает: Заменяет в строке strString все вхождения строки strFind на строку strReplace
Public Function funChangeString(strString As String, strFind As String, strReplace As String) As String
Dim strFirst As String, strLast As String, strOut As String, intPos As Integer
strOut = strString
If strFind = strReplace Then GoTo lblExit
intPos = InStr(strOut, strFind)
Do Until intPos = 0
strFirst = Left$(strOut, intPos - 1)
strLast = Right$(strOut, Len(strOut) - intPos + 1 - Len(strFind))
strOut = strFirst & strReplace & strLast
intPos = InStr(intPos + Len(strReplace), strOut, strFind)
Loop
lblExit:
funChangeString = strOut
End Function