Split VBA access 2K

Den melder fejl på Split funktionen, idet den skriver:

compile error. Expected variabel or procedure, not project



Public Function adskil_Felt()
    Dim aText
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
        Set db = CurrentDb
    Set rs = db.OpenRecordset("Ny_Master_02072003", dbOpenDynaset)
     
    Do
      aText = split(rs!varetextBQ, "@@")
      rs.Edit
      rs!tekstlinie1 = aText(0)
      rs.Update
      rs.MoveNext
    Loop Until rs.EOF
    rs.Close
    Set rs = Nothing
 
 
    End Function