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