changing masked edit from one form to another

[Jessie]

On one form I have a mask edit control mskphone (###)-###-#### when loading the second form I want to load the numbers into a textbox but without the hypens or Brackets
eg mskPhone = Form2.txtTextbox
(555)-555-5555= 555555555
any ideas i have tried several ways but once again i am need of some help
thxs in advance

[QWERTY]

Maybe this will help (I'm sure that there is easier way but I can't think about it right now)

Module code

Function TrimSpaces(Text As String)
    Dim trimspace As Integer
    Dim thechar$, thechars$
    If InStr(Text, " ") = 0 Then
        TrimSpaces = Text
        Exit Function
    End If
    For trimspace = 1 To Len(Text)
        thechar$ = Mid(Text, trimspace, 1)
        thechars$ = thechars$ & thechar$
        If thechar$ = " " Then
            thechars$ = Mid(thechars$, 1, Len(thechars$) - 1)
        End If
    Next trimspace
    TrimSpaces = thechars$
End Function

Form2_Load Event code

Private Sub Form_Load()
    Dim I As Integer
    Dim aString As String
    
    Text1.Text = Form1.mskPhone.Text
    For I = 1 To Len(Text1.Text)
        If Mid(Text1.Text, I, 1) = "-" Or Mid(Text1.Text, I, 1) = "(" _
        Or Mid(Text1.Text, I, 1) = ")" Then
            aString = Text1.Text
            Mid(aString, I, 1) = " "
            Text1.Text = aString
        End If
    Next I
    Text1.Text = TrimSpaces(Text1.Text)
End Sub

[This message has been edited by QWERTY (edited 11-30-1999).]

[Jessie]

thxs qwerty i didn't think it would be that complicated i save your code for future reference it'll help me in the future

[tpatten]

Have you tried the cliptext property? For example:

PhoneNum = mskPhone.ClipText

This should only give you the numbers that were entered and not the literals.

[QWERTY]

Told you there is an easier way

------------------
Visual Basic Programmer (at least I want to be one)
------------------
PolComSoft
You will hear a lot about it.

[Jessie]

Well look at the Bright side Qwerty least i learned about the Trim function don't have time tonight to try your way tpatten but thxs for your reply Have Pool tonight IF we win
it could mean a trip to the Canadian championships in January

[tpatten]

Just curious. Did it work?

[Jessie]

thxs tpatten worked like a charm so did pool
one more match to win and off to the canadians