I have users enter information into a vba form in word. Once the user hits ok on the form, I want the code to check the string that they entered in that field (which is a phone number) and replace any "-" with "." and then check for "(" or ")" and replace with "." Once the text is replaced, I want it to enter the "revised" string into the document. For example text entered as 999-999-999 or (999) 999-999 should be 999.999.999

Thanks in advance

check out the REPLACE command.

newgeek,

I find functions to be a fast and efficient way to go and would simply use the following code:

Public Sub Main()
strPhone = txtPhoneNum.Text
strPhone = ReplaceWithin(strPhone, "-", ".")
strPhone = ReplaceWithin(strPhone, "(", ".")
strPhone = ReplaceWithin(strPhone, ")", ".")

Selection.TypeText strPhone
End Sub

' ************************************************** ***************************
' Function to Replace Within with NumberToReplace as Optional Last Parameter
' ************************************************** ***************************
Public Function ReplaceWithin(ByVal strString As String, ByVal strFind As String, ByVal strReplace _
                                                        As String, Optional ByVal NumberToReplace As Integer) As String

' Purpose: To replace all occurrences of one string in another
Dim intPos As Integer
Dim intLP As Integer
Dim intLen As Integer
Dim strTemp As String
Dim intCount As Integer
intCount = 0

' find each search string and replace with target
intLen = Len(strFind)
intPos = InStr(strString, strFind)
While intPos <> 0
    If NumberToReplace > 0 And NumberToReplace = intCount Then
        GoTo LOOP_ESCAPE
    End If
    strTemp = strTemp & Left$(strString, intPos - 1)
    strTemp = strTemp & strReplace
    strString = Right$(strString, Len(strString) - intPos - intLen + 1)
    intPos = InStr(strString, strFind)
    intCount = intCount + 1
Wend

' append remainder upon failure of last InStr search
LOOP_ESCAPE:
strTemp = strTemp & strString
ReplaceWithin = strTemp
End Function


For more info recommend http://www.vba-programmer.com

CarlR