Probleme visual basic probleme de code source

bonjour j'ai un probleme je suis vraiment débutant en visual basic est mon programme a une erreur

Compile error block if without end if

----------

Private Sub Form_Load()
Dim DateNaissance
Dim Prenom
Dim Message, Titre As String
Message = "Veuillez entrer votre date de naissance? "
Titre = "Entrez votre date de naissance : "
DateNaissance = InputBox(Message, Titre)
If DateNaissance <> "" Then
DateNaissance = Format(DateNaissance, "Long Date")
MsgBox DateNaissance, vbOKOnly + vbInformation, "Vous êtes né(e) le"
Message = " Quel est votre prenom? "
Titre = "votre prenom : "
Prenom = InputBox(Message, Titre)
If Prenom <> "" Then
End
Else
While DateNaissance = ""
MsgBox "Entrez une date arreter de fermer le programme ", vbOKOnly + vbExclamation, "Attention!"
DateNaissance = InputBox(Message, Titre)
Wend
DateNaissance = Format(DateNaissance, "Long Date")
MsgBox DateNaissance, vbOKOnly + vbInformation, "Vous êtes né(e) le"
End
End If
End Sub
--------------


ps : avez vous un tres bon site pour apprendre a programmer en vb? mais je ni conner rien de rien et je voudrais apprendre de la base de chez base?