View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] Shaka215@gmail.com is offline
external usenet poster
 
Posts: 162
Default Excel VB form to break apart a phone number?

Hey,

I am trying to figure out how to do the following...

Spreadsheet value is 555-111-2222

I've got 3 text boxes and I need that number broken down into each
text box...

Textbox1.value = 555
Textbox2.value = 111
Textbox3.value = 2222

I got textbox1 to work correctly using this code...

ThisTextbox = TextBox1.Value
charnum = InStr(1, ThisTextbox, "-")
If charnum < 0 Then
TextBox1.Value = Left(ThisTextbox, charnum - 1)
End If

But I can't figure out how to get it work with the rest of the
numbers... any ideas? I'm thinking LEN & LEFT can do it but I can't
figure out the context. Any help is greatly appreciated!