请教各位高手！String类型如何转化为double?

[zhoupu2004]

问题如题.那位高手能给点代码给小弟研究一下啊?!小弟找了半天也没有找到合适的资料.

[recollectpainer]

str中部分字符中数字用：
val(str)
整个串是数字用：
cdbl(Str)

[tztz520]

Dim a As String
Dim b As Double

b = Val(a)

[creazyfish]

Dim a As String
Dim b As Double

b = cdbl(Val(a))

[laihongbo524]

CBool Boolean 任何有效的字符串或数值表达式。
CByte Byte 0 至 255。
CCur Currency -922,337,203,685,477.5808 至922,337,203,685,477.5807。
CDate Date 任何有效的日期表达式。
CDbl Double 负数从 -1.79769313486231E308 至 -4.94065645841247E-324；正数从 4.94065645841247E-324 至 1.79769313486232E308。
CDec Decimal 零变比数值，即无小数位数值，为
+/-79,228,162,514,264,337,593,543,950,335。对于 28 位小数的数值，范围则为
+/-7.9228162514264337593543950335；最小的可能非零值是 0.0000000000000000000000000001。
CInt Integer -32,768 至 32,767，小数部分四舍五入。
CLng Long -2,147,483,648 至 2,147,483,647，小数部分四舍五入。
CSng Single 负数为 -3.402823E38 至 -1.401298E-45；正数为 1.401298E-45 至 3.402823E38。
CStr String 依据 expression 参数返回 Cstr。
CVar Variant 若为数值，则范围与 Double 相同；若不为数值，则范围与 String 相同。