Try this:

Private Function ReplaceAll(SourceString As String, ReplaceThis As String, WithThis As String)
Dim Temp As Variant
Temp = Split(SourceString, ReplaceThis)
ReplaceAll = Join(Temp, WithThis)
End Function

'To call: ReplaceAll(txtSomeTextBox.Text, "OldString", "NewString")