Visual Basic - COMO DAR FORMATO A UN MUNERO ESPECIFICO

HOLA AMIGOS
Como puedo hacer que un tetbox me ponga el formato numérico a medida que voy ingresando los números ej
escribo 1234 y me ponga 1.234 si agrego el 5 sea 12.345 y si quito el 5 me ponga 1.234

Prueba con esto:

Private Sub Text1_Change()
Dim posSel As Long
posSel = Text1.SelStart
Text1.Text = Format(Text1.Text, "###,###")
Text1.SelStart = posSel + 1
End Sub

Cambia donde ponet Text1 por el nombre de tu textBox