Val 函数 

返回包含于字符串内的数字，字符串中是一个适当类型的数值。 

语法 

Val(string) 

必要的 string 参数可以是任何有效的字符串表达式. 

说明 

Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。 

下面的返回值为 1615198： 

Val(" 1615 198th Street N.E.") 

在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。 

Val("&HFFFF") 

注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字。 
'===================================== 
Val 函数示例 
本示例使用 Val 函数返回字符串中所含的数值。 

Dim MyValue 
MyValue = Val("2457") ' 返回 2457。 
MyValue = Val(" 2 45 7") ' 返回 2457。 
MyValue = Val("24 and 57") ' 返回 24。

val(一个字符串，s,code);s表示转出来的数，，code表示如果转化错误，它的位置便记录在code中