Userform, Combobox, Datumsformat

Private Sub UserForm_Initialize()
'Werte bei Aufruf des Formulars eintragen, Formular initialisieren
With Me
'.cboDatvon = Format(cboDatbis, "MMM.JJ")
'.cboDatbis = Format(cboDatvon, "MMM.JJ")
' Ich dachte, hiermit kann ich die Combobox "cboDatvon" und "cboDatbis" von
' vornherein anweisen, die eingelesenen Daten als Datum zu behandeln.
' Geht irgendwie nicht
.cboDatvon = Worksheets("dynEinAus").Range("F7")
.cboDatbis = Worksheets("dynEinAus").Range("G7")
.cboDatvon.List = Range("Startmonat").Value
.cboDatbis.List = Range("Endmonat").Value
End With
End Sub
Private Sub cmdUebernehmen_Click()
'Fügt die Werte ins Tabellenblatt und schließt das Formular frmDatDiagramm
With Worksheets("dynEinAus")
'Hier wollte ich mir "Cdate" zu nutze machen, um den Wert als Datum in das     _
entsprechende Tabellenblatt
'einzuschreiben:
' "Cells(12, 6).Value = CDate(Me.cboDatvon.Value)"
' "Cells(12, 7).Value = CDate(Me.cboDatbis.Value)"
'Value wird korrekt angezeit, aber der Typ verträgt sich nicht mit CDate.
.Cells(12, 6).Value = Me.cboDatvon.Value
.Cells(12, 7).Value = Me.cboDatbis.Value
'Jetzt bin ich soweit, dass der Wert von der Combobox in die jeweiligen Felder  _
eingetragen wird. Jedoch
'als Text und ich nicht wie von mir erhofft als Datumswert.
End With
Unload frmDatDiagramm
End Sub
Private Sub cmdAbbruch_Click()
'Schließt das Formular frmDatDiagramm
Unload frmDatDiagramm
End Sub