Aşağıdaki kodları direkt ekleyin olucaktır herhangi bir nesne eklenmesine gerek yoktur..

Kod:
Dim d_tarih, gun Do d_tarih = InputBox("Doğum Tarihinizi Giriniz : " & vbCrLf & "GG/AA/YYYY", "Dikkat") Loop While Not IsDate(d_tarih) Select Case Weekday(d_tarih) Case 1: gun = "Pazar" Case 2: gun = "Pazartesi" Case 3: gun = "Salı" Case 4: gun = "Carşamba" Case 5: gun = "Perşembe" Case 6: gun = "Cuma" Case 7: gun = "Cumartesi" End Select MsgBox gun & " Gunu Doğmuşsunuz", vbOKOnly, "Dikkat" End

__________________