Es curioso por que aún convirtiendolo a double, sucede lo siguiente:

Si TxtImporte.Text contiene = 123.12
Cuando convierto su valor a double y lo guardo en la variable importe:
importe = CDbl(Form4.TxtImporte.Text)

Guarda 12312. Es decir la variable importe en vez de contenter 123.12 contiene 12312, ¿porque?

Gracias de nuevo !!!