Use the following code:
Public Function RemoveChar(ByVal str As String, ByVal strChar As String) As String ' Function: RemoveChar ' ' Desc: Extracting requested character from given string. Return value is changed string ' ' Parm: str - string that has to be changed ' strChar - character that supose to be extracted ' While (InStr(1, str, strChar) <> 0) str = Left(str, InStr(1, str, strChar) - 1) & Mid(str, InStr(1, str, strChar) + 1) Wend RemoveChar = str End Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.























