天哪，写这么多代码……
满头大汗……
楼主是不是就想在一堆字符中提取其中的有效数字串？
如果仅是这个功能的话，还是不需这么麻烦的，我自己试了一个小代码：
首先引用：Microsoft VBScript Regular Expressions 1.0
动态库文件存在于：vbscript.dll
代码如下：
Dim reg As New RegExp
Dim s1 as string,s2 as string
s1="0.09~ 1.2;18" '目标字符串
s2=s1 '新建字符串
reg.Pattern="[^\d|^\.|^,]"
reg.Ignorecase=True
While reg.Test(s2)
s2=reg.Replace(s2,",")
Wend

While Instr(s2,",,")>0
s2=Replace(s2,",,",",")
Wend

Msgbox s1
Msgbox s2

'至此已经可以看到结果，如果你还想把s2转成数组还可以写：
dim s() as single
s=split(s2)

VB6.0 WinXP试运行通过，如果你抄回去不行，可能是我敲错字了，自己改改