Call-Anweisung (Beispiel)

In dem folgenden Beispiel wird veranschaulicht, wie Sie mit der Call-Anweisung die Steuerung an eine Sub-Prozedur, eine integrierte Funktion und eine Prozedur in einer Dynamic Link Library (DLL) übergeben können.DLLs werden auf dem Macintosh nicht verwendet.

' Sub-Prozedur aufrufen.
Call AusgabeImTestfenster("Hallo Welt")    
' Übergibt Steuerung an folgende Sub-Prozedur.
Sub AusgabeImTestfenster(Text)
    Debug.Print Text    ' Ausgabe direkt im Fenster.
End Sub

' Integrierte Funktion aufrufen. Der Rückgabewert der Funktion wird 
' nicht verarbeitet.
Call Shell(AnwendungsName, 1)    ' AnwendungsName enthält den Pfad 
    ' der ausführbaren Datei.

' Prozedur in einer Microsoft Windows-DLL aufrufen. Die Declare-
' Anweisung muß in einem Klassenmodul das Attribut Private haben, in 
' einem Standardmodul aber nicht.
Private Declare Sub MessageBeep Lib "User32" (ByVal N As Integer)
Sub DllAufrufen()
    Call MessageBeep(0)    ' Windows DLL-Prozedur aufrufen.
    MessageBeep 0    ' Nochmal ohne Schlüsselwort Call.
End Sub

' Macintosh Code-Ressource aufrufen.
Declare Sub Warnmeldung Lib "Hd1:Warnung1" Alias "Warnung1" (ByVal N _
As Integer)
Sub CodeRessourceAufrufen()
    Call Warnmeldung(0)    ' Macintosh Code-Ressource aufrufen.
    Warnmeldung 0    ' Nochmal ohne Schlüsselwort Call.
End Sub