---

Function variablen()
    ' Beispiele fuer Variablendeklarationen
    Dim reelleZahl As Single
    Dim reelleZahl2#
    Dim reelleZahl3 As Double
    reelleZahl3 = 7
    reelleZahl2 = 4.7
    reelleZahl = reelleZahl2 + reelleZahl3
    Dim ganzeZahl As Integer
    Dim ganzeZahl2%
    Dim ganzeZahl3 As Long
    ganzeZahl3 = 5
    ganzeZahl2 = 8
    ganzeZahl = ganzeZahl2 + ganzeZahl3
    Dim chamaeleon
    chamaeleon = 6
    chamaeleon = "sieben"
    ganzeZahl = reelleZahl2
    ganzeZahl = "sieben"
    test = 9
End Function

---