Something

Private Sub cmdDetermineGrade_Click()
    Dim intNumericGrade As Integer
    Dim strGrade As String
    
    intNumericGrade = Val(txtPoints.Text)
    
        If intNumericGrade > 89 Then
            strGrade = "A"
            
        ElseIf intNumericGrade < 90 Then
                If intNumericGrade > 79 Then
                   strGrade = "B"
                End If
                
        ElseIf intNumericGrade < 80 Then
                If intNumericGrade > 69 Then
                   strGrade = "C"
                End If
                
        ElseIf intNumericGrade < 70 Then
                If intNumericGrade > 59 Then
                   strGrade = "D"
                End If
                
        Else
            strGrade = "F"
        End If
    lblGrade.Caption = strGrade
    
        
End Sub