Sub cm()
    Dim reelleZahl2#
    reelleZahl2 = 4.7
    Dim ganzeZahl As Integer
    ganzeZahl = 8
    Dim chamaeleon
    chamaeleon = 6
    MsgBox ("chamaeleon zum Ersten: " & chamaeleon)
    chamaeleon = "sieben"
    MsgBox ("chamaeleon zum Zweiten: " & chamaeleon)
    ganzeZahl = "sieben"
    MsgBox ("ganzeZahl: " & ganzeZahl)
End Sub