I think you would like this.. :thumbsup:
Function CurrencyStringToNumber(ByVal amount As String) As Double
If IsNumeric(amount) Then
Dim actualAmout As String = ""
For Each c As Char In amount.ToCharArray
If IsNumeric(c) Or c = "." Then
actualAmout &= c
ElseIf c = "(" Then
actualAmout &= "-"
End If
Next
Return Val(actualAmout)
Else
Throw New Exception("Amount is not in proper format.")
End If
End Function
Craig, please mark it as answer, if it works.