Needle in a Haystack

Sub Needle()

Var = " Need the amount in the parenthesis (1234.12) and also the second number (-45788.11)."

Var1 = Var 'Var1 reads as " Need the amount in the parenthesis (1234.12) and also the second number (-45788.11)."

Par1 = InStr(1, Var1, "(") 'Par1 reads as 37. Showing the position of "(" in " Need the amount in the parenthesis (1234.12) and also the second number (-45788.11)."

Var1 = Mid(Var1, Par1) 'Var1 reads as "(1234.12) and also the second number (-45788.11)."

Var1 = Mid(Var1, 2) 'Var1 reads as "1234.12) and also the second number (-45788.11)."

Var2 = Var1 'Var2 reads as "1234.12) and also the second number (-45788.11)."

Par2 = InStr(1, Var1, ")") 'Par2 reads as 8. Showing the position of ")" in "1234.12) and also the second number (-45788.11)."

Var1 = Left(Var1, Par2) 'Var1 reads as "1234.12)"

Amt1 = Replace(Var1, "(", "") 'Amt1 reads as "1234.12)"

Amt1 = Replace(Amt1, ")", "") 'Amt1 reads as string "1234.12"

Amt1 = CDbl(Amt1) 'Amt1 reads as number 1234.12

Par3 = InStr(1, Var2, "(") 'Par3 reads as 37. Showing the position of "(" in "1234.12) and also the second number (-45788.11)."

Var2 = Mid(Var2, Par3) 'Var2 reads as "(-45788.11)."

Par4 = InStr(1, Var2, ")") 'Par4 reads as 11. Showing the position of ")" in "(-45788.11)."

Var2 = Left(Var2, Par4) 'Var2 reads as "(-45788.11)"

Amt2 = Replace(Var2, "(", "") 'Amt2 reads as "-45788.11)"

Amt2 = Replace(Amt2, ")", "") 'Amt2 reads as string "-45788.11"

Amt2 = CDbl(Amt2) 'Amt2 reads as number -45788.11

DiffVar = Amt1 + Amt2 'DiffVar reads as number -44553.99.

End Sub