Dim str As String = "水利冬修费1.2亿元"
Dim s As String = System.Text.RegularExpressions.Regex.Match(str,"[0-9.]+[万亿]+").ToString()If s.EndsWith("万") Then s = val(s) * 10000ElseIf s.EndsWith("亿") Then s = val(s) * 100000000End Ifmsgbox(s)