In diesem Beispiel wird die Sub-Anweisung verwendet, um Namen, Argumente und Prozedurrumpf einer Sub-Prozedur zu definieren.
' Definition der Sub-Prozedur.
' Sub-Prozedur mit zwei Argumenten.
Sub FlächeBerechnen(Länge, Breite)
Dim Fläche As Double ' Lokale Variable deklarieren.
If Länge = 0 Or Breite = 0 Then
' Wenn ein Argument = 0,
Exit Sub ' dann Sub unmittelbar
' verlassen.
End If
Fläche = Länge * Breite ' Rechteckfläche berechnen.
Debug.Print Fläche ' Fläche im Testfenster
' ausgeben.
End Sub