Trap for Young (and Old) Players - (Text Box Formatting Trap)

[jggtz]

Or
You could use the right function to convert string to numeric
CCUR CDBL CSNG CLNG CINT

If IsNumeric(txtInvValue.Text) Then 
    ValIncTax = CCur(txtInvValue.text)
End If