What have I done wrong?

[Ronald95]

Program ask me to enter six random numbers and then show the sum.
Here is the code I entered:

Public Sub sum()
Dim a, b, c, d, e, f
MsgBox "Find sum"
Do
r = InputBox("Enter six numbers ", " ")
MsgBox "And the sum is: " & a + b + c + d + e + f


End Sub

But I get this error:
Compile error:
Do without Loop

What do I need to correct??

 

[AlphaFrog]

Ronald, is this your homework again?

 

[Ronald95]

Ronald, is this your homework again?

Yes it is but this time asking for help.
Should this forum be the place where you can get help from professionals??

 

[Michael M]

Yep....but we don't do homework, as most of us had to our own about 40+ years ago...