Нужно сделать в vba сумму вот такого ряда через do while 1-2+3-4+5-. сколько пытался, не получается, ,

Sub aaa()
    s = 0: sign = 1
    i = 1
    Do While i <= 100
        s = s + sign * i
        sign = -sign
        i = i + 1
    Loop
    MsgBox s
End Sub

В результате будет получено значение -50.