Private Sub Test()
 
     Dim a, b As Integer
     b = 100 : a = 20
     Do While a > 15
        b = 100 - a
        a = a - 2
     Loop
 
     MsgBox _
     ("1.) a hat den Wert: " & CStr(a) & "   b hat den Wert: " & CStr(b))
 
     Do
       a = b - 40
       If a > 15 Then
          a = a - 4
          b = b + 10
       Else
          a = a - 5
       End If
     Loop While b < 40
     MsgBox _
     ("2.) a hat den Wert: " & CStr(a) & "   b hat den Wert: " & CStr(b))
End Sub