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