2

3

        Dim S As String = "12.5%, 17, 18.3кг, 7 Дж,3.2 м"

        Dim Group1 As String() = (From M As Match In Regex.Matches(S, "[0-9]+(\.[0-9]+)?") Select M.Groups(0).Value).ToArray()

        MsgBox(String.Join(vbCrLf, Group1))