Fejl i Dim Array

Den nedenfor viste kode ligger i et modul til Access
Når koden ligger på form_Current er der ingen fejl men når jeg flytter den ned i et modul fejler Arrayet. Jeg har prøvet med ReDim men det bliver ikke bedre. Kan i hjælpe

Public Sub Billed2Disk(...........)

  Dim Link1Del() As String  <== Fejler

      If Nz(InStr(1, Billed, "#")) > 0 Then
          Link1Del = Split(Billed, "#")
        end if
.
.
end sub