---

Function variablenDeklaration()
' Diese Funktion zeigt die Folgen eines
' falsch deklarierten Datentyps

    Dim richtig As Integer
    Dim falsch As Integer

    richtig = 32767
    falsch = 32768

End Function

---