Este fórum está sendo desativado

[vilc]

Boa Tarde, como faço para quando digitar na textbox ele formatar para o formato:
ex: 123456789 para 123 456 789
quando for digitando já ficar na formatação, desde já agradeço.

[Foxtri]

Bom dia.
Veja se era isso.

Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 3 And TextBox1.Text Like "###" = True Then TextBox1.Text = TextBox1.Text & " "
If Len(TextBox1.Text) = 7 And TextBox1.Text Like "### ###" = True Then TextBox1.Text = TextBox1.Text & " "
If Len(TextBox1.Text) = 11 And TextBox1.Text Like "### ### ###" = True Then TextBox1.Text = TextBox1.Text & " "
If Len(TextBox1.Text) > 11 Then TextBox1.Text = Left(TextBox1.Text, 11)
End Sub

Até
Foxtri

[vilc]

@Foxtri, muito obrigado, ficou perfeito...