Visual Basic - cuestion de formatos de un text box

Hola programadores,
necesito su ayuda nuevamente, en mi sistema tengo textbox que debe poder ingresar valores, pues bien, tengo un codigo que permite ingrersar solo numeros y va separando los miles tras el evento change, pero ahora se le ocurrio al cliente :( , que ademas de separar miles deba poder ingresar valores decimales, (ej: 16.523,45) .y eso no lo he podido lograr, y por eso es que necesito vuestra ayuda, a continuación
le envio el codigo que separa miles en el textbox, pero no admite los decimales, aver si os ucurre algo.

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

Mil gracias

Buka

Tengo un control que lo hace de acuerdo a la configuración regional pero con la diferencia que formatea cuando pierde el foco. Si quieres te lo envío.

por favor mandalo a mi correo. :)

Muy agradecido

Saludos