Ciclo if ...than ... else ... end if in access 2007

Buongiorno a tutti,
sono nuovo del forum e piuutosto acerbo degli argomenti da Voi trattati in modo professionale. Da poco ho ripreso a "tentare di elaborare" qualche semplice applicazione in Access 2007 dopo un lontano trascorso con Visula Basic 5.
Mi trovo alle prese con un "sembrerebbe semplice" loop in VBA per assegnare ad una casella di testo il giorno in chiaro ed in italiano del giorno della settimana in base alla data di sistema. Ho predisposto il seguente loop inserito in codice al caricamento della frm. Nella Casella NumeroGiornoSettimana immetto il numero del giorno restituito dalla data di sistema, da questo numero, attraverso un loop di if voglio convertirlo in nome giorno.
Purtroppo il sistema restituisce l'errore "Errore di compilazione: Blocco If senza End If" evidenziandomi "End Sub".

Private Sub Form_Load()
Me!DatadiSistema = Date
NumeroGiornoSettimana = Weekday(Date, [vbMonday])

If NumeroGiornoSettimana = 1 Then
Me!GiornoSettimana = "lunedì"
Else
If NumeroGiornoSettimana = 2 Then
Me!GiornoSettimana = "martedì"
Else
If NumeroGiornoSettimana = 3 Then
Me!GiornoSettimana = "mercoledì"
Else
If NumeroGiornoSettimana = 4 Then
Me!GiornoSettimana = "giovedì"
Else
If NumeroGiornoSettimana = 5 Then
Me!GiornoSettimana = "venerdì"
Else
If NumeroGiornoSettimana = 6 Then
Me!GiornoSettimana = "sabato"
Else
Me!GiornoSettimana = "domenica"
End If
End Sub

Ho provato in tutti i modi posizionando diversamente la struttura e anche inserendolo in "eventi diversi". Niente da fare restituisce sempre lo stesso errore.
Grazie infinite a chi potrà aiutarmi.

Saluti

Sandro