Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

string help needed

Status
Not open for further replies.

perto

IS-IT--Management
Sep 21, 2000
10
0
0
BE
Hi all,
can anybody help me with the following :

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.

thanx in advance
perto
 
Function ParsePhone(strPhone As String)
Dim intParen As Integer
intParen = InStr(strPhone, "(")
ParsePhone = Left(strPhone, intParen - 1) & Mid(strPhone, intParen + 3)
End Function


PaulF
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top