I want to remove characters from a string containing a telephone number for ex. :
0049(0)654654646 what I want to do is put that in a new string without (0) in it.
Function ParsePhone(strPhone As String)
Dim intParen As Integer
intParen = InStr(strPhone, "("
ParsePhone = Left(strPhone, intParen - 1) & Mid(strPhone, intParen + 3)
End Function
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.