Public Function ExtractDecimalValues(ByVal Text As String) As List(Of Decimal)

        Dim result As New List(Of Decimal)

        Dim oMatch As System.Text.RegularExpressions.Match

        Dim oMatchCollection As System.Text.RegularExpressions.MatchCollection

        Dim oRegEx As New System.Text.RegularExpressions.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