从一串字符串中提取路程信息76.5公里，求助

lijunyong

本人初学，用正则表达式从字符串中提取数据，就是从一串字符串中提取路程信息76.5公里，提示对象不具有该属性或方法，哪位大神赐教

Sub RegExpDemoSyntax()
    Dim Reg, myResult, str
    str = "aaabbcc76.5公里ccdeeee"
    '给对象指定正则表达式对象
    'CreateObject函数用于创建各种外部对象，对象的完整名称就是参数
    Set Reg = CreateObject("vbscript.regexp")
    'Pattern后面写正则表达式
    Reg.Pattern = "\d+.?\d*公里"
    'Global值为True返回所有符合要求的结果，反之只返回第一个符合要求的结果
    Reg.Global = True
    'Execute(字符串)
    Set myResult = Reg.Execute(字符串)
    If myResult.Count > 0 Then
            str = myResult.submatches(0)
            MsgBox "str: " & str
    End If
    Stop
    Set Reg = Nothing
End Sub

zpy2

[\d\.]+公里