Sub mag()
Dim A As Integer, B As Integer, An As Integer, Bn As Integer, Ai As Integer, Ax As Integer, Bi As Integer, Bx As Integer
A = 50
B = 75
An = A + A * 0.11
Bn = B + B * 0.13
Do While Ax <= 5000
    Ax = Ax + An
    Ai = Ai + 1
Loop
Do While Bx <= 5000
    Bx = Bx + Bn
    Bi = Bi + 1
Loop
MsgBox "щоб виручити потрачену суму на товар А необхідно продати: " & Ai " од. " & " а для повернення суми за тов. B  " & Bi
End Sub