Function OnlyDollars(r As String) As String
OnlyDollars = "[$" & Val(Mid(r, 3)) & "]"
End Function
Function OnlyDollars(r As String) As String
OnlyDollars = "[$" & Val(Mid(r, 3)) & "]"
End Function
Sub Test()
MsgBox OnlyDollars("[$100(-1.2%)]")
End Sub