Excel Máscara condicional em Textbox

[Luciana Goes]

Olá. Preciso colocar máscara na textbox para 4 ou menos caracteres e acima de 4. Segue arquivo. Alguém consegue me ajudar?

 

textbox.zip

[OreiaG]

Veja se lhe atende.

 

Private Sub TextBox1_Change()
 If Len(TextBox1.Text) = 5 Then
  If Right(TextBox1.Text, 1) = "-" Then
   TextBox1.Text = Left(TextBox1.Text, 4)
  Else: TextBox1.Text = Left(TextBox1.Text, 4) & "-" & Right(TextBox1.Text, 1)
  End If
 End If
End Sub

 

[Luciana Goes]

@OreiaG Deu certo! Muito obrigada!