参考
Dim str As String = "001 8889 4.045 mm 5920m/s"Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9.]+(?=.*?mm)")msgbox(mc(mc.count-1).value)