Cita:
Iniciado por vdiaz18 
saludos, podrias hacerlo de la siguiente manera:
Private Sub Text1_LostFocus()
Dim A(13), B(13) As String
For i = 1 To 12
A(i) = Mid(Text1.Text, i, 1)
Next
B(5) = "-"
For i = 1 To 4
B(i) = A(i)
Next
For i = 6 To 13
B(i) = A(i)
Next
For i = 1 To 13
texto = texto + B(i)
Next
Text1 = texto
End Sub
Espero te sirva
Hola, ése código falla, p.e. si escribimos 123456789 el resultado es 1234-6789
Creo que es mas sencillo así:
Private Sub Text1_LostFocus()
Text1.Text = Left(Text1, 4) & "-" & Mid(Text1, 5, Len(Text1))
End Sub 