Dato ændres fra userform til ark

Private Sub GemNyeData_Click()
   
    Application.ScreenUpdating = False
   
    Sheets("Ark1").Select
    Range("A2").Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromRightOrBelow
    Range("A2").Select
    With ActiveCell
    .Value = Dato.Text
        .Offset(0, 1).Value = Nummer.Text
        .Offset(0, 2).Value = Årstal.Text
        .Offset(0, 3).Value = Størrelse.Text
        .Offset(0, 4).Value = Kommentar.Text
    End With
    Unload Me
   

  Application.ScreenUpdating = True

End Sub
Bruger flg. lille kode til at lægge nogle brugerinput over i et ark. Probelemet er, at min dato ændres fra eks. 09-04-2012 til 04-09-2012. Hvordan sikrer jeg, at det ikke sker?