Module ZahlC
  Sub Main()
    Dim a, b, c, i As Integer
    a = 1
    b = 1
    c = 1
    
    For i = 1 To 10
      If i = 10 Then
        c = a * b * c - a * b
      ElseIf i > 5 Then
        b = c - a
        c = c - 2
        a = a - 1
      Else
        c = a + b
        a = b
        b = c
      End If
    Next i
      
    MsgBox (c)
  End Sub
End Module