Sub variablen()
    ' Beispiele fuer Variablendeklarationen
    ' Dateiname variablen
    dim reelleZahl As Single
    dim reelleZahl2#
    dim reelleZahl3 As Double
    reelleZahl3 = 7
    reelleZahl2 = 4.7
    reelleZahl = reelleZahl2 + reelleZahl3
    MsgBox("reelleZahl: " & reelleZahl)
    dim ganzeZahl As Integer
    dim ganzeZahl2%
    dim ganzeZahl3 As Long
    ganzeZahl3=5
    ganzeZahl2=8
    ganzeZahl = ganzeZahl2 + ganzeZahl3
    MsgBox("ganzeZahl: " & ganzeZahl)
    dim chamaeleon
    chamaeleon = 6
    MsgBox("chamaeleon zum Ersten: " & chamaeleon)
    chamaeleon = "sieben"
    MsgBox("chamaeleon zum Zweiten: " & chamaeleon)
    ganzeZahl = reelleZahl2
    MsgBox("ganzeZahl zum Zweiten: " & ganzeZahl)
    ganzeZahl = "sieben"
    MsgBox("ganzeZahl zum Dritten: " & ganzeZahl)
    test=9
    MsgBox("test: "& test)
End Sub