Private Sub Form_Load()
    Dim d_tarih, gun
    show
    Do
    d_tarih = InputBox("Doğum Tarihinizi Giriniz : ")
    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 = "Çarşamba"
            Case 5: gun = "Perşembe"
            Case 6: gun = "Cuma"
            Case 7: gun = "Cumartesi"
        End Select
    MsgBox (gun & " Günü Doğmuşsunuz")
End Sub