add specific currency to textbox on userform

[abdelfattah]

hello
I try adding specific currency to numbers into textbox i would show the number in textbox like this LYD 120,000.00
this is my try

Private Sub TextBox1_Change()
With Me.TextBox1
Dim s As Currency
s = LYD
        If IsNumeric(.Value) Then .Value = Format(.Value, "#,##0.00" & s)
    End With
End Sub

 

[abdelfattah]

yes it works only when I have more than one textbox but as you see in my userform contain textbox1 not more on user form

 

[abdelfattah]

thanks mohadin your code works excellently i put combobox and select item then populate the number with currency in textbox change event
well done ! buddy

 

[mohadin]

OK, glad you could sort it out
Be happy