Visual Basic - punto de miles

. tengo un Text y quiero recorrerlo desde el final hacia el principio para poner los puntos (".") separadores de miles. ¿como puedo hacerlo? ¿hay alguna otra forma de que aparezcan los puntos separadores de miles?

Para lo que quieres existe el format. En el LostFocus de la Caja de Texto pon
text1=format(Text1,"#,###"), y aparecerá con la separacion de miles que hayas puesto en configuración regional.

hola chamuscao
en el evento change del texto pon esto y caqda vez que digites un número te pondra los separadores

Dim posSel As Long
posSel = txtretenciones.SelStart
txtretenciones.Text = Format(txtretenciones.Text, "###,###")
txtretenciones.SelStart = posSel + 1

Contestame si te resulta
Chao

hola no me resulto

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

me gusto la idea, sabes lo quiero es, que no me permita ingresar el punto,