Hola.. puedes jugar un poco con los eventos... (solo copia y pega)
Ejemplo
Cita: Dim sText As String 'Declaras una variable que va a ser el texto temporal
Private Sub
Text1_Change() 'cuando cambie el texto reasignas el contenido anterior
If Len(Text1.Text) < 4 Then
Dim sText As String
Text1.Text = sText 'asignas lo anterior para no perder el contenido
Text1.SelStart = 4 'dejas el cursor en posicion final de tu texto
End If
End Sub
Private Sub
Text1_KeyDown(KeyCode As Integer, Shift As Integer)
sText = Text1.Text 'cachas el texto actual para asignarlo a tu temporal
End Sub
Espero que sea lo que buscas.
Salu2