Loop.

Dim vHomework As Integer

Dim vDone As Integer

For vHomework = 1 To 3 Step 1

'3 steps = 3 homework that is Multimedia, EM & Programming

Do Until vHomework > vDone

vHomework += 1

Loop

MsgBox("Done" )

Next

PS* Crazy over loop now =P