Private Sub cmdDetermineGradeLevel_Click()
    Dim intCredits As Integer
    Dim strGrade As String
    
    intCredits = Val(txtCredits.Text)
    
        If intCredits < 32 Then
            strGrade = "Freshman"
        
        ElseIf intCredits >= 32 Then
                If intCredits <= 63 Then
                        strGrade = "Sophomore"
                End If

        ElseIf intCredits >= 64 Then
                If intCredits <= 95 Then
                    strGrade = "Junior"
                End If

        Else
            strGrade = "senior"
        End If
        
    lblGradeLevel.Caption = strGrade
    
End Sub