Dim mc = System.Text.RegularExpressions.Regex.Matches(str , " ")
If mc.count > 0 Then msgbox(“报审值:” & ) msgbox(“审定值:” & ) msgbox(“审减值:” & )End If