AutoDato i userform (textbox1)

Hej

Jeg har fået hjælp her på E! til at laver en userform
------------------------------
Private Sub CommandButton1_Click()  ' OK knap

Rows("4:4").Insert Shift:=xlDown

ActiveSheet.Range("A4") = UserForm1.TextBox10.Value
ActiveSheet.Range("B4") = UserForm1.TextBox1.Value

If UserForm1.CheckBox1.Value = True Then
    ActiveSheet.Range("C4") = 1
End If

If UserForm1.CheckBox3.Value = True Then
    ActiveSheet.Range("D4") = 1
End If

If UserForm1.CheckBox2.Value = True Then
    ActiveSheet.Range("E4") = 1
End If

ActiveSheet.Range("F4") = UserForm1.TextBox9.Value
ActiveSheet.Range("G4") = UserForm1.TextBox8.Value
ActiveSheet.Range("H4") = UserForm1.TextBox7.Value

If UserForm1.CheckBox4.Value = True Then
    ActiveSheet.Range("I4") = 1
End If

If UserForm1.CheckBox7.Value = True Then
    ActiveSheet.Range("J4") = 1
End If

UserForm1.Hide

End Sub
------------------------------
Se evt. http://www.dinos.dk/index.php?op=10&act=bdfag&spm=268037

Hvordan får jeg automatisk dagsdato i textbox1 ??

Chewie