Convert TextBox value to Currency

Hi All

I have the following snippet of code I need assistance with. I am trying to get ws.Range("F9") to display R652000.00
and have the availability of calculating commissions from this value without faulting as it reads value as string.

Dim Total As Long
Total = Application.WorksheetFunction.VLookup("TOTAL", ss.Range("A6:E5000"), 5, False)
'Assuming Total.value = 652000.00
UserForm1.TextBox1 = Format(Total, "R#,## 0.00")
ws.Range("F9") = UserForm1.TextBox1.Value

This formula renders an incorrect answer after the sheet is populated

Formula:

=IF(F9="","",IF(F9>E3,(F9*0.25/100),0))

Any help please.

I had a cross post which I marked as solved in Formula section thinking it was the formula....
https://www.excelforum.com/excel-for...ml#post4665855

Hi Sintek

    With Range("F9")
    .Value = Val(Mid(UserForm1.TextBox1.Value, 2))
    'or just .Value = Total
    .NumberFormat = "[$R-af-ZA]#,##0.00"
    End With

Please click the Add Reputation star below any helpful posts, and if you have your answer, mark your thread as SOLVED (Thread Tools up top). Thanks!-Lee

Decided just to go numbers throughout....No currency...

Hi leelnich

thanks for your response...
tried but no avail....Still converts to custom and errors formula

I'm surprised, that Cell number format displayed the NUMBER 652000.00 as R652,000.00 perfectly. Sorry we couldn't find a solution. Take care-Lee