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]

any idea?

 

[mohadin]

Hi

Try
.....=Format(CStr(.Value), "#,##0.00") & " s"

 

[abdelfattah]

thanks but it doesn't work this is what shows

 

[mohadin]

OOOOPs

.....=Format(CStr(.Value), "#,##0.00") & " " & s

 

[mohadin]

Dim s As String
s="LYD"

Or you mean

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

 

[abdelfattah]

about post #5 it doesn't change as for post # 6 it gives me error mismatch in this

s="LYD"

 

[mohadin]

Re read the #6

 

[abdelfattah]

yes but not completely should show for any number like this LYD 1,122,122.00 OR LYD100.00

 

[mohadin]

Then

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
Dim s As String
s = "LYD"
        If IsNumeric(.Value) Then
        .Value = s & " " & Format(CStr(.Value), "#,##0.00")
        End If
    End With
End Sub