Tipo de Dato decimal

Hola a todos,

Tengo un problemita con los tipos de datos Decimal, en el
codigo de mi programa tengo un 2 campos text que me
capturan un ancho y un alto y tengo que generar el area

codigo es el sig:

dim dArea as Decimal
dArea = cDec(txtAncho.Text) * Cdec(txtAlto.text)
Los datos en txtAncho.Text= 1.5 y txtAlto.text = 1.5 el
valor resultante deberia ser 2.25 pero me genera 225

Si asigno el valor a una variable (el valor de
txtAncho.Text = 2)
dim dAncho as Decimal
dAncho = cDec(txtAncho.Text)
el valor no es 2 sino 2D, me lo esta generando en formato
decimal, y no entiendo porque

Por favor si alguien me puede ayudar es urgente
.