Make empty spaces in phone numbers in TextBox using Excel VBA.

[Masta]

When i enter first number of phone in TextBox1 i need that phone to show up in TextBox2 with spaces. That is the same one with TextBox3.
I tryed everything but i have problem when i do that in cell i have good result but when i try to get that 064 23 77 890 from cell to TextBox i got result 0642377890 and that is not what i need. I dont have slighest clue how to acomplish this. I think the only solution is to skip cells and all do with VBA code. Please help me.

 

[HaHoBe]

Hi Masta,

how about

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
  If Len(.Value) > 0 Then
    TextBox2.Value = Format(.Value, "000 00 00 0##")
  End If
End With
End Sub

if you leave TextBox1.

Ciao,
Holger

 

[Masta]

Hi Masta,

how about

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
  If Len(.Value) > 0 Then
    TextBox2.Value = Format(.Value, "000 00 00 0##")
  End If
End With
End Sub

if you leave TextBox1.

Ciao,
Holger

Thank you on fast response! I will try this now.

 

[Masta]

Hi Masta,

how about

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
  If Len(.Value) > 0 Then
    TextBox2.Value = Format(.Value, "000 00 00 0##")
  End If
End With
End Sub

if you leave TextBox1.

Ciao,
Holger

Is it possible to have 2 different value in this TextBox1 sollution, i have 2 different lenght in numbers 0641231231 and 064123123, and this need to look like this 064 12 31 231 and 064 123 123 ?

 

[HaHoBe]

Hi Masta,

maybe

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
  If Len(.Value) > 0 Then
    Select Case Len(.Value)
      Case 10
        TextBox2.Value = Format(.Value, "000 00 00 000")
      Case 9
        TextBox2.Value = Format(.Value, "000 000 000")
      Case Else
        TextBox2.Value = "Number must show either 9 or 10 digits"
  End Select
  End If
End With
End Sub

Ciao,
Hoilger