Нужно сделать в VBA сумму вот такого ряда через Do While 1-2+3-4+5-6...-100. Сколько пытался, не получается, помогите, пожалуйста

Sub aaa()    s = 0: sign = 1    i = 1    Do While i <= 100        s = s + sign * i        sign = -sign        i = i + 1    Loop    MsgBox sEnd SubВ результате будет получено значение -50.