Fra VBA Function til Alm. funktione

Jeg har nedenstående VBA Function som jeg selv har lavet. Den virker fint, men er desværre alt for langsom, når jeg indsætter den 10.000 gang :-(

Med den er jo ikke specielt avanceret, så mon ikke den kan konverteres til en almindelig hvis sætning, så jeg undgår det langsomme VBA programmering?

Function Kryds(StartDato As Date, Slutdato As Date, MandagIugen As Date, StartPakke As Date)
Dim SøndagIugen As Date

SøndagIugen = MandagIugen + 6

If StartDato < SøndagIugen And ((Slutdato > MandagIugen) Or Slutdato = #12:00:00 AM#) Then
    Kryds = "X"
Else
    Kryds = "-"
End If

If StartPakke <> #12:00:00 AM# Then
    If IsDate(StartPakke) Then
        If MandagIugen < StartPakke And StartPakke < SøndagIugen Then
            Kryds = "SP"
        End If
    End If
End If

End Function