La solucion puede ser de maneras distintas:
1). Suponiendo que leeras un dato del tipo:
i). Caracter: Puedes definir el largo a recepcionar en tiempo de diseño, usando la propiedad maxlength del control text
ii) Numerico o fecha: Puedes usar el control masked (si no lo tienes, puede cargarlo en Proyecto->Componentes->Examinar y busca el archivo MSMASK23.OCX en la carpeta System) y en la propiedad format seleccionas el tipo de format y en la propiedad mask le das la mascara a leer: por ejemplo: si son 6 numeros, puedes colocar ###,### o si es fecha ##:##:##
2).- Puedes colocar un text y colocar el largo en maxlength y el siguiente codigo en keypress
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'si quieres leer un numero usa
If IsNumeric(Text1) Then
'colocar codigo
Else
Text1.Text = ""
Text1.SetFocus
End If
'si quieres leer fecha, usa el siguiente codigo que lo reemplazas por el anterior
' If IsDate(Text1) Then
' 'codigo para la fecha
' Else
' Text1.Text = ""
' Text1.SetFocus
' End If
End If
End Sub
Espero te sirva
