Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function StripChar(MyChar As String, _
MyString As Variant, Optional NewChar As String) As String
Dim NewVal As String
NewVal = Nz(MyString, "There is no text to evaluate.")
Do
If InStr(NewVal, MyChar) = 0 Then
Exit Do
Else
NewVal = Left(NewVal, InStr(NewVal, MyChar) - Len(MyChar)) _
& NewChar & Mid(NewVal, InStr(NewVal, MyChar) + Len(MyChar))
End If
Loop
StripChar = NewVal
End Function