Een nul voor de komma of punt in een textbox

[jacobusm]

In een userform heb ik een aantal textboxen waar uren ingevuld moeten worden, nu komt het voor dat bij het intikken bijvoorbeeld .25 ingevoerd word ipv 0.25 om te verkomen dat dit na invoer fout gaat ben ik op zoek naar een code die van .25 0.25 maakt.

Wie kan mij hierbij helpen.
Alvast bedankt.

 

[paulva]

Dat kan vrij gemakkelijk in het change-event:

Private Sub TextBox1_Change()
    If Left(TextBox1.Text, 1) = "." Then
        TextBox1.Text = "0" & TextBox1.Text
    End If
End Sub

Beste groeten,
Paul.

 

[jacobusm]

Paul,

Bedankt dit is wat ik zocht.

Groet, Martin

 

[HSV]

Dat had je Hier ook al gevraagd toch?

 

[huijb]

Het is niet toegestaan om je vraag twee keer te plaatsen. Bovendien geef je in de andere topic dezelfde reactie als hier, nl. dat het is opgelost. Dit is volstrekt minderwaardig t.o.v. de helpers die jou hier van dienst zijn. Een volgende keer zullen andere maatregelen genomen worden.