Imports System

Imports System.Text.RegularExpressions  

​

Public Module Module1

    Public Sub Main()

        dim str as string= "O Valor Total de Desconto é maior que o permitido, o Valor Correto é 433.12"

        Console.WriteLine(getValueFromString(str))

    End Sub

    Public function getValueFromString(value as string) as decimal

        Dim n As Decimal

        Dim m As Match = Regex.Match(value, "\((?<n>\d+\.\d{2})\)")

        If m.Success Then

            n = Decimal.Parse(m.Groups("n").Value)

        End If

        return n

    end function

End Module