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

En el evento de lostfocus del textbox pon esto:
Private Sub Text1_LostFocus()
Text1 = Format(Text1, "#,###,###,#0.00")
End Sub

En el evento de lostfocus del textbox pon esto:
Private Sub Text1_LostFocus()
Text1 = Format(Text1, "#,###,###,#0.00")
End Sub