---

Sub aenderungVonVariablenWerten()
    Dim testVariable As Integer
    testVariable = 10
    Debug.Print testVariable
    testVariable = 100
    Debug.Print testVariable
    testVariable = testVariable * 13
    Debug.Print testVariable
End Sub

---