参考代码
Dim str As String = "ST4.8×20"'Dim str As String = "M20"Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[a-zA-Z]+|[0-9.]+")For i As Integer = 0 To mc.count-1 msgbox(mc(i).Value)Next