Visual Basic - String a Numero

amigos tengo la siguiente pana,,,,

Tengo un text que lo tengo con el formato de moneda "$##,##0" y ahora no puedo sumarlo o restarlo con otro text del mismo formato..... Puede ser que el Text con el formato sea un String???
he probado con lo siguiente:
'********************** text transformado*********
dim costo, precio, total as integer
Formato = ""
Formato = Format(TxtPrecio, "$#,##0")
TxtPrecio.Text = Formato
Formato = ""
Formato = Format(TxtCosto, "$#,##0")
TxtCosto.Text = Formato
'******************* quiero pasar los valores de los text a numero para poder sumarlos
costo=val(txtcosto.text) ' el valor del txtcosto es de "$ 10.100"
precio=val(txtprecio.text) ' el valor del txtprecio es de "$ 15.100"
'*************************
total=precio - costo

El error es que "total" simpre me sale valor "0", he probado con Double, Long y no pasa Na!!
amigos ayudenme....!!
gracias
Alfredo

En primer lugar quita el signo del dolar, si quieres puedes poner una etiqueta al final, y luego prueba
cdbl(text1)+cdbl(text2)

prueba con esto.

costo=val(txtcosto.text) ' el valor del txtcosto es de "$ 10.100"
precio=val(txtprecio.text) ' el valor del txtprecio es de "$ 15.100"

costo=val(replace(replace("$10,100.00","$",""),",",""))
precio=val(replace(replace("$15,500.00","$",""),",",""))

muchas gracias

Alfredo