EDIT -------
Finalmente pude resolverlo con Expresiones regulares. Dejo el código por si a alguien le sirve:
' Definimos las expresiones regulares
Dim Valor As String = FORMULA_ATextBox.Text
Dim matchesP1 As MatchCollection = Regex.Matches(Valor, "\+\d+%")
Dim matchesP2 As MatchCollection = Regex.Matches(Valor, "\-\d+%")
Dim matchesM As MatchCollection = Regex.Matches(Valor, "\*\d+")
Dim matchesD As MatchCollection = Regex.Matches(Valor, "\/\d+")
Dim Precio As Double = PRECIOTextBox.Text
Dim PrecioA As Double = PRECIO_ATextBox.Text
' Si encuentra % postivo
For Each m As Match In matchesP1
For Each c As Capture In m.Captures
Dim regex As Regex = New Regex("\d+")
Dim match1 As Match = regex.Match(c.Value)
PrecioA = PrecioA + (PrecioA * match1.Value / 100)
Next
PRECIO_ATextBox.Text = PrecioA
Next
' Si encuentra % negativo
For Each m As Match In matchesP2
For Each c As Capture In m.Captures
Dim regex As Regex = New Regex("\d+")
Dim match1 As Match = regex.Match(c.Value)
PrecioA = PrecioA - (PrecioA * match1.Value / 100)
Next
PRECIO_ATextBox.Text = PrecioA
Next
' Si encuentra *
For Each m As Match In matchesM
For Each c As Capture In m.Captures
Dim regex As Regex = New Regex("\d+")
Dim match1 As Match = regex.Match(c.Value)
PrecioA = PrecioA * match1.Value
Next
PRECIO_ATextBox.Text = PrecioA
Next
' Si encuentra /
For Each m As Match In matchesD
For Each c As Capture In m.Captures
Dim regex As Regex = New Regex("\d+")
Dim match1 As Match = regex.Match(c.Value)
PrecioA = PrecioA / match1.Value
Next
PRECIO_ATextBox.Text = PrecioA
Next
Gracias a todos por la ayuda!