vb.kodları çalışmıyor

[oerbas]

İyi Akşamlar
Arkadaşlar Puantaj programımda UserForm intialize olayına bağlı kod şu hatayı veriyor.

ComboBox= Date satırı çalışmıyor. İşyerindeki bilgisayarda Ofice 2010 kullanıyorum bir sıkıntı olmuyor evdeki bilgisayarımda xp yüklü ofice xp ile açtığımda kod çalışmıyor sebebi ne olabilir. Cevap verecek arkadaşlara şimdiden teşekkür ederim.

Private Sub UserForm_Initialize()
ComboBox2 = Date
'izinbaştar = Date
'izinbitiştar = Date
'VIZTAR = Date
'işbaşıtar = Date
Sheets("ANA").Select
VIZTAR.Text = Format(Range("I3"), "dd.mm.yyyy")
izinbaştar.Text = Format(Range("I3"), "dd.mm.yyyy")
Sheets("ANA").Select
izinbitiştar.Text = Format(Range("I3"), "dd.mm.yyyy")
işbaşıtar.Text = Format(Range("I3"), "dd.mm.yyyy")
SONTAR.Text = Format(Range("I3"), "dd.mm.yyyy")
'DOĞUMTAR = Format(DOĞUMTAR, "dd.mm.yyyy")
ComboBox2.Text = Format(Range("I3"), "mmmm")

TextBox11.Value = ""
Worksheets("Rapor").Range("A1").CurrentRegion.ClearContents
adı1.RowSource = "KULLANILAN!B2:B" & WorksheetFunction.CountA(Worksheets("KULLANILAN").Range("B1:B65000"))
ComboBox1.RowSource = "KULLANILAN!D2" & WorksheetFunction.CountA(Worksheets("KULLANILAN").Range("d1:d65000"))
'ComboBox2.RowSource = "KULLANILAN!H2:H" & WorksheetFunction.CountA(Worksheets("KULLANILAN").Range("h1:h65000"))
liststok.ColumnWidths = 25 & ";" & 55 & ";" & 55 & ";" & 60 & ";" & 65 & ";" & 65 & ";" & 65 & ";" & 45 & ";" & 65 & ";"
Dim say As Integer
Sheets("DATA").Select
txtsira.Locked = True
If Range("B2") = "" Then
say = WorksheetFunction.CountA(Range("B1:B5000"))

Else
say = WorksheetFunction.CountA(Range("B1:B65000"))

End If