Visual Interdev - Validar cajas de texto en VisualBScript

Quiero saber como puedo validar las cajas de texto para que se visualizen asi $999.999.99,que codigo emplear para que me acepten punto(1 sola vez).Yo ingreso numeros con punto decimal para calcular to precios y cantidad y quiero que aparezcan con decimal.
Estoy trabajando con formularios de Front Page luego cargo esa pagina en Visual Interdev ,trabajando con el cliente VisualBScript.Gracias

txtMiCaja.Text = Format(txtMiCaja.Text, "$#.###.##0.00")