Microsoft Excel VBA

[Диана1998]

Напишите программу, суммирующую числа от 0 до указанного целого
положительного числа.
Последовательность работы программы:
 Выводится диалоговое окно «InputBox» под названием
«Определение суммы чисел»c предложением ввести конечное число;
 После ввода пользователем числа, с помощью цикла происходит
суммирование от 0 до введенного числа;
 по окончании суммирования выводится окно «MsgBox» с
результатом вычисления;
Для выполнения задания необходимо:
 объявить 3 переменные (1 для конечного числа, 2 для цикла, 3 для
суммы);
 назначить переменной 1 объект «InputBox» следующим образом: i =
Application.InputBox(prompt:="введи те конечное число",
Title:="определение суммы чисел");
 с помощью цикла провести суммирование чисел и присвоить
результат переменной 3;
 вывести окно «MsgBox» c результатом.

[Диана1998]

Sub Summa()
Dim i As Integer, SUM As Integer
SUM = 0
For i = 0 To Rnd
i = Application.InputBox(prompt:="введи те конечное число", Title:="определение суммы чисел")
SUM = SUM + i
Next i
MsgBox(
End Sub
Помогите MsgBox оформить,пожалуйста!
И подскажите правильно вообще я начала?

[Диана1998]

Кто нибудь помогите!Пожалуйста,скажите хотя бы начало правильное или нет?
Мне осталось окно вывести с результатом!

[Son Of Pain]

Нужно добавить-таки третью переменную, прочитать в нее значение (до цикла). И цикл делать от 0 до нее.

[Диана1998]

Sub Summa()
Dim i As Long, SUM As Long
Dim z As Long
i = Application.InputBox(prompt:="Введи те конечное число", Title:="определение суммы числа")
For z = 0 To i
SUM = SUM + z
Next z
MsgBox ("сумма чисел от 0 до ????? равен" & SUM)
End Sub


Что нужно поставить на место ????? не понимаю,(если число любое нужно ввести),помогите пожалуйста!!!

[Диана1998]

Все всем спасибо,я сама сделала,можете закрывать тему!