verkeerde datumnotatie

[bowlingman]

Hallo,
Ik heb een UserForm gemaakt van waaruit ik gegevens wegschrijf naar een excel-sheet.
Voor het wegschrijven van de datum gebruik ik een tekstbox, omdat de datums handmatig moeten ingegeven worden en dus niet met DTPicker.
Dit gebeurd met de volgende code

Option Explicit
Private Sub cboSpeeldag_Change()
    Dim oRng As Range
    Set oRng = Sheets("Blad9").Cells.Find(what:=cboSpeeldag.Value, lookat:=xlWhole)
End Sub

Private Sub cmbWegschrijven_Click()
    Dim Rw1 As Integer, i As Integer
    Dim tb As Object
     With Sheets("Blad9")
        Rw1 = .Range("B100").End(xlUp).Row + 1
            For Each tb In Me.Controls
                For i = 1 To 3
                    If tb.Name = "txtBaan" & i Then
                    With .Cells(Rw1, i + 2)
                        .Value = tb.Value
                    End With
                    With .Cells(Rw1, 2)
                        .Value = txtDatum.Value
                    End With
                    tb.Value = ""
                    End If
                Next
            Next
            txtDatum.Value = ""
            cboSpeeldag.Value = ""
        End With
End Sub

Private Sub UserForm_Initialize()
    Dim EndRow As Long, r As Long
    With Sheets("Blad9")
        EndRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For r = 2 To EndRow
            If .Cells(r, 1).Value <> "" Then
                cboSpeeldag.AddItem .Cells(r, 1)
            End If
        Next
    End With
End Sub

Het probleem is nu, dat wanneer ik de datum wegschrijf, deze zolang de dag hoger is als 12, deze op de correcte wijze op mijn sheet komt, maar wanneer ik bv. in mijn UserForm de datum 11/12/2011 (dus de dag kleiner dan 12) inbreng deze op mijn sheet komt als 12/11/2011.
Moet ik soms ergens in de bovenstaande code een opmaak voor de datum zetten.
De kolom waar de datums komen staat wel in de juiste datum-notatie.

Grtjs.
Bowlingman

 

[HSV]

Probeer deze eens.

.Value = datevalue(txtDatum)

 

[bowlingman]

Hallo Harry,
Dat was snel. Bedankt voor de oplossing. Is in orde nu.
Had zelf ook al geprobeerd met "datevalue", maar op een verkeerde plaats.

Grtjs.
Bowlingman