Visual Basic - controlar un guion

yo tengo un campo que se llame en
la forma TEXT4.TEXT o lo que sea
y este es de 6 posiciones, como puedo hacer para que aparezca automatico,
un - (guion) en medio para que el
user cuando digite lo haga asi.

este es un ejemplo

001-001
001-002
001-003

002-001
002-001

o sea que el guion seria una especie de separador, no es que el user lo va
poder borrar, ni nada por el estilo,
y a la hora de grabarse en la tabla ese guion, no se va a grabar se va a
grabar solo los digitos
osea
001001
001002
001003

El campo en la tabla es alfabetico, o sea texto, no es numerico.

saludos,

José

Pues hay un control k se llama mask edit y sirve para lo k kieres, usas una mascara Ej: ###-####### este te aceptaria 3 numeros depues pondria el guion y despues 7 numeros.... pero si no lo puedes conseguir puedes usar esto en el text_change

Private Sub Text1_Change()
If Len(Text1.Text) = 3 Then
Text1.Text = Text1.Text & "-"
Text1.SelStart = Len(Text1.Text)
End If
End Sub

para regresa el valor sin el guion usarias esto en alguna funcion o evento...

Dim tmp
tmp = Replace(Text1.Text, "-", "", 1, -1, vbTextCompare)

si por ejemplo escribiste "aaaaa", el textbox diria "aaa-aa" y tmp seria igual a "aaaaa"

Espero k te sirva