Userform textbox leeg dan "00/00/0000" invullen

[carloschouw]

Goedemorgen!

Ik ben aan het stoeien met een code in een userform wat ik niet goed werkend krijg, weet niet waar de fout precies zit.

Wanneer er een textbox niet ingevuld is dan moet deze textbox weggeschreven worden met een vaste waarde, in dit geval b.v. 00/00/0000

Ik probeer het met deze code maar dat werkt niet goed:

If Trim(Me.TextBox1.Value) = "" Then
 ws.Cells(iRow, 1).Value = "00/00/0000"
Else
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
  Exit Sub
 End If

Iemand een idee wat hier niet goed gaat of hoe ik dit anders in zou kunnen richten?

 

[edmoor]

Vertel wat er dan wel gebeurt en plaats een voorbeeld documentje.

 

[snb]

Waarom niet ?

 ws.Cells(iRow, 1).Value = iif(Trim(TextBox1)="","00/00/0000",Textbox1)

 

[carloschouw]

@edmoor. Mijn code bleef op een of andere manier hangen in zijn verwerking. Geen idee waarom maar inmiddels is het opgelost door de code van nsb. De volgende keer zal ik een voorbeeldje erbij doen
@nsb, dank voor je code! Doet precies wat ik nodig had