Funzione Split

Buongiorno a tutti

Ho una tabella in un db access 2016, che in un campo partecipanti contiene 5 indirizzi mail separati da un “;”

con il codice seguente vorrei appunto “splittare” i 5 indirizzi mail, che poi andrebbero in pasto ad una query di update….. ma ricevo un errore : “prevista variabile o routine e non modulo”

Function MySplit(partecipanti As Variant _
   , posizione As Integer _
   , Optional Del As String = ";" _
   ) As Variant

 
   MySplit = Null 
   If IsNull(partecipanti) Then Exit Function
   MySplit = Split(partecipanti, Del)(posizione - 1)
End Function

Chi è così gentile di aiutarmi a capire l'errore?

Grazie mille  a tutti e buona giornata

Andrea