Список голосов Thank You

[RRB]

Играюсь...
Sub vodka_pivo()
ActiveSheet.Select
Dim x, n, a, b As Integer
x = 100
n = 20
a = x - n + n * (n / (x + n)) < 2 * x
b = x - n * (x / (x + n)) < 2 * x
If a > b Then
MsgBox "водки в кувшине 1 больше чем пива в кувшине2"
ElseIf a < b Then
MsgBox "пива больше в кувшине 2 чем водки в кувшине1"
Else
MsgBox "водки и пива в двух кувшинах одинаково"
End If
End Sub