Option Explicit
Sub zuweisung()
'Beispielprogramm fuer zuweisungen
'Dateiname: zuweisung
    Dim x As Integer
    Dim y As Integer
    Dim z As Integer
    x = 2 'x hat Wert 2, y Wert ?, z Wert ?)
    MsgBox ("Ausgabe 1: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)
    
    y = 3 'x hat Wert 2, y hat Wert 3, z Wert ?)
    MsgBox ("Ausgabe 2: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)
    
    z = x + y 'x hat Wert 2, y hat Wert 3, z hat Wert 5)
    MsgBox ("Ausgabe 3: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)

    x = 4 'x : 4, y : 3, z : 5)
    MsgBox ("Ausgabe 4: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)

    x = x + 7 'x : 11, y : 3, z : 5)
    MsgBox ("Ausgabe 5: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)

    y = x 'x : 11, y : 11, z : 5)
    MsgBox ("Ausgabe 6: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)
    
    y = z 'x : 11, y : 5; z : 5)
    MsgBox ("Ausgabe 7: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)

    z = 7 'x : 11, y : 5, z : 7)
    MsgBox ("Ausgabe 8: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)

    x = z + 7 - 8 'x : 6, y : 5, z : 7)
    MsgBox ("Ausgabe 9: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)

    y = z 'x : 6, y : 7, z : 7)
    MsgBox ("Ausgabe 10: " & Chr$(13) & _
    "Wert von x: " & x & Chr$(13) & _
    "Wert von y: " & y & Chr$(13) & _
    "Wert von z: " & z)

End Sub