You can use the REPLACE function to do that. Read up on the function, then play around with it, something like:


If InStr(TextBoxA.Value, TextBoxB.Value) > 0 Then
    TextBoxA.Value = Trim(Replace(TextBoxA.Value, TextBoxB.Value, ""))
End If