Sub bbb()
Dim sStr$
sStr = "Hello, World!"
With CreateObject("VBScript.RegExp")
.Pattern = "Wo.+"
sStr = .Replace(sStr, "Bay")
End With
MsgBox sStr
End Sub
Соблюдение правил форума не освобождает от модераторского произвола
Sub bbb()
Dim tx$, i&
tx = "Hello, World!"
i = InStr(tx, "Wo"): If i = 0 Then Exit Sub
tx = Left$(tx, i - 1) & "Bay": MsgBox tx
End Sub
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄