Report Offensive Message

My final code looks like this and it works.

Private Sub OKButton_Click()
Sheets("Sheet1").Activate

NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1

'Application.WorksheetFunction.CountA (Range("A:A")) + 1

Cells(NextRow, 1) = TextName.Text

If OptionHS Then Cells(NextRow, 2) = "High School"

If OptionCollege Then Cells(NextRow, 2) = "College"

If OptionGrad Then Cells(NextRow, 2) = "Grad School"

TextName.Text = ""

TextName.SetFocus


End Sub