Visual Basic - SEPARADOR DE MILES EN UN TEXBOX

Hola amigos, tengo unos texbox en los cuales estoy ingresando unas cantidades numericas. Quisiera que al escribirlas, este me separe las cifras por miles como lo hace excel, que debo hacer?.

NOTA: No es una base de datos, es una aplicación sencilla.

Muchas Gracias

sera esto ?
en el event Keypress del texto

If KeyAscii = 13 Then ' se activa cuando apretas enter
Text1.Text = Format(Text1.Text, "0,000.00")
end if