UserForm - convert percentage back to decimal. Run-time error '13' Type Mismatch

[JayMess]

I have a user form to simply calculate the future value of a payment series.
One text box allows the user to specify the interest rate as a percentage. Upon exit, I am able to format the value as a percent.

Private Sub TB_interest_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TB_interest.Value = Format(TB_interest.Value, "percent")
    
End Sub

In my main sub, I am trying to assign the value of the text box to a variable as a decimal.

Private Sub CB_ok_Click()
Dim payment As Single
Dim time As Integer
Dim interest As Single

    payment = TB_payment.Value
    time = TB_time.Value
    interest = Val(TB_interest.Value) / 100
End Sub

The line assigning a value to the variable interest is triggering the run-time error '13' Type Mismatch.

I want the user to see percent formatting in the text box, but I want to be able to use the value as a decimal for calculation purposes.

I am using Excel 2010 and Windows 7.

Thanks for your help!

Jay

 

[vds1]

Try

interest = Val(Replace(TB_interest.Value, "%", "")) / 100

 

[Norie]

Do you need the % sign in the textbox?

Could you not add a small label to it's <s>left</s> right for the symbol?

Then you should have no problem converting text to number.

 

[JayMess]

Thank you vds1 (and also thank you Norie)