Visual Basic - Calculos

Hola a todos. Gracias por la ayuda hasta este momento...
Estoy cerca de terminar mi programa..
Ahora lo que me detiene son 2 cosas:

1:valor1 = CDbl(Txtmontocredito.Text) * Val(Cbointeres.Text) / 100
valor2 = CDbl(Txtmontocredito.Text) / Cbopmeses.Text + valor1
Txtmontocuota.Text = Format(valor2, "currency")
diasvenc1 = Val(Dtfpago) - Val(Dtfvencimiento)
intpuni1 = Val(Cbopunitorio.Text) / 100
punitorio1 = CDbl(Txtmontocuota.Text) * intpuni1 * diasvenc1 / 36500
mcuotap1 = CDbl(Txtmontocuota.Text) + punitorio1
Txtmontocuota.Text = Format(mcuotap1, "currency")
valor3 = CDbl(Txtmontocuota.Text) * Txtcuotasvencidas.Text
Txtmontototal.Text = Format(valor3, "currency")
Txtmontocredito.Text = Format(Txtmontocredito, "currency")
Son unos calculos mas un par de formatos, y no me da lo que me tiene q dar...
Me numero entero, o si me da numero con formato me da cualquiera jej.
y
2: Yo en los formularios tengo distintas validaciones... Y si hago click en el boton cancelar para anular la carga por si se arrepiente el usuario, y despues apreto en el boton volver o cierro el formulario me da un error. O directamente apreto en cancelar y me salta las validaciones q hice y no me deja seguir...

Desde ya gracias

Consejo no hagas calculos sobre cajas de textos osea por ejem

text3 = text1 * text2 (visual basic patina en ciertos casos y devuelve cualquier cosa)

lo que te recomiendo es que declares las variables por ejemplo

dim valor1 as integer
dim valor2 as integer
dim valor3 as integer

valor3=valor1 * valor2

vos usa el tipo de varible que te haga falta

y despues los mostra con el formato que quieras.

text1.text=FormatCurrency(Valor3,2) por ejemplo.

saludos.-

Ok gracias por la respuesta.....
Me surge otra duda.. las tengo todas las variables esas declaradas como string y a la hora del calculo las pongo en val(variable). porque el integer es para numeros enteros sin decimales si no estoy loco....jeje
Pero en esta linea si la dejo asi me hace esto
Txtmontocuota.Text = nuevomonto + nuevovalor
ej: 11587 190=115.87 + 1.90
Y si pongo asi
Txtmontocuota.Text = val(nuevomonto) + val(nuevovalor)
el resultado me da 116
Y el total tendria que ser 117.77
Obviamente ese es un ejemplo...
Bueno desde ya muchas gracias por tu respuesta