Choose Option Explicit...

Option Explicit

Dim NoOfSubjects As Integer, Grade As String

Public Sub DepressedLittleGirl()

NoOfSubjects = 0

For NoOfSubjects = 1 to 6, Step 1

Grade = ""

Grade = InputBox("What grade did you get for " & NoOfSubject & " ?", "GRADE")

IF Grade = A, THEN MsgBox "Congratulations! You've finally made yourself up to be what others think of you!", vbExclamation

ELSE

MsgBox "Go Soak your head and think about what you just did!!!"

Next NoOfSubjects

End Sub