Beispiel für eigene Prozedur

Die folgende Prozedur prüft ein Argument auf seinen Typ:

Sub procDatentypAnzeigen(ByVal varEingabe)
  If IsNumeric(varEingabe) Then
    MsgBox ("Zahl")
  ElseIf IsDate(varEingabe) Then
    MsgBox ("Datum")
  ElseIf IsArray(varEingabe) Then
    MsgBox ("Array")
  Else
    MsgBox (TypeName(varEingabe))
  End If
End Sub

Aufruf:

Call procDatentypAnzeigen("15.3.2003")