Dim Ergebnis
Ergebnis = MalZwei()   ' Liefert Null.
Ergebnis = MalZwei(2)   ' Liefert 4.
 
' Definition der Function-Prozedur.
Function MalZwei(Optional A)
   If IsMissing(A) Then
      ' Wenn kein Argument, dann Null zurückgeben.
      MalZwei = Null
   Else
      ' Wenn Argument vorhanden, dann doppelten Wert zurückgeben.
      MalZwei = A * 2
   End If
End Function