VBA geöffnete datei an anderen sub übergeben

Sub eine datei zum schreiben geöffnet. nun möchte ich in mehreren vorgängen daten in der datei speichern, dies soll durch aufruf einer anderen funktion geschehen.
wie kann ich in der aufgerufenen funktion auf die geöffnete datei aus dem ersten 

Sub zugreifen, ohne die datei schließen und wieder öffnen zu müssen?

Sub Basis()
FileNum = FreeFile
Open File1Name For Output As #FileNum
' Aufruf der Funktion
Schreibfunktion()
Close #FileNum
End Sub



Function Schreibfunktion() as blabla
Print #FileNum, ""
End Function