Ecco una semplice funzione che permette di estrarre una serie di numeri da una stringa:

Public Function ExtractDecimalValues(ByVal Text As String) As List(Of Decimal)
       Dim result As New List(Of Decimal)
 
       Dim oMatch As Match
       Dim oMatchCollection As MatchCollection
       Dim oRegEx As New Regex("[\d]+[{\.,\,}]?[\d]+")
 
       oMatchCollection = oRegEx.Matches(Text)
       Dim strResult As String = String.Empty
       For Each oMatch In oMatchCollection
           strResult = Convert.ToDecimal(oMatch.Value.ToString.Trim())
           result.Add(strResult)
       Next
       Return result
   End Function