o si refieres agregas un Maskedit para ke te lo formatee al teclear, pero no te lo recomiendo mucho, a veces produce otras complicaciones si no eres muy avanzado en lo de programacion.
Hola amigo
si quieres algo mas sofisticado seria asi es decir a medida que vas digitando los numeros te pone los puntos
Private Sub txtretenciones_Change()
txtretenciones.BackColor = &HFFFFFF
Dim posSel As Long
posSel = txtretenciones.SelStart
txtretenciones.Text = Format(txtretenciones.Text, "###,###")
txtretenciones.SelStart = posSel + 1
End Sub
Chao