VBA Word2003: Getalnotatie toewijzen

[Guus81]

Heren en Dames,

Ik wil graag in de volgende code een getalnotatie (€#.##0,00) verwerken:

Private Sub txtPromilageO_Change()
Dim iJaarpremieO As Integer
iJaarpremieO = txtPromilageO.Text * txtVerzekerdBedragO.Text \ 1000
If txtPromilageO.Text = True Then
If txtVerzekerdBedragO.Text = False Then
lblJaarpremieO.Caption = False
Else
lblJaarpremieO.Caption = iJaarpremieO
End If
Else
lblJaarpremieO.Caption = False
End If
End Sub

Dit lukt mij echter niet, iemand een idee.

De bedoeling is dat waarden uit de textboxen worden berekend en daarna worden weergegeven in een label...

 

[Axel Hagg]

Getalnotatie

Probeer dit eens:


Private Sub txtPromilageO_Change()
If txtPromilageO.Text.Length Then
If txtVerzekerdBedragO.TextLength Then
lblJaarpremieO.Caption = txtPromilageO.Text * txtVerzekerdBedragO.Text \ 1000
Else
lblJaarpremieO.Caption = ""
End If
Else
lblJaarpremieO.Caption = ""
End If
End Sub