Erreur sur VBScript pour calculer une date de naissance

a partir de son age et du jour qu'il est
et j'ai toujours l'erreur Then attendu a la 7/8ème ligne (en fonction de si vous comptez le a la ligne au début ou pas) 10ème caractère (ET bien entendu il n'y a pas de 10ème caractère sur cette ligne :-/ ...)

voici le script:

Do

annee = inputbox("en quelle annee est tu ne(e)")

mois = inputbox("en quel mois est tu ne(e)")

If input mois >12 or <1 then

msgbox "retapez la reponse en nombre."
Loop

else
End If

age = Year(now) - annee

If
mois < Month(now)
Then

age2 = age - 1
'car si on est ne au debut ou a la fin de l'annee ca change...
x = "tu as donc" & age2 & " ans."

Elself
mois > Month(now) Then

x = "tu as donc" & age & " ans."

esle

end if
Jour = Inputbox(" et quel jour?")

If Jour < Day(now) then

Age2 = age - 1

Jour2 = Day(now) - Jour

x = "tu vas donc fete ton anniversaire dans " & Jour2 & " jours!tu vas avoir " & age & "ans!"

Elself Jour > Day2 then

Jour2 = Jour - Day(now)

x = " tu viens donc tout juste de feter ton anniversaire (il y a " & jour2 & " jours ! )"

Else
x = "Bon anniversaire ! Tu fete tes " & age & "ans!"

End If

MsgBox "" & x & "" & vbNewLine
Exit
Loop

exit



si quelqu'un peut m'expliquer