Miscellany

Private Sub cmdAssignCounselor_Click()
    Dim strName As String
    Dim intName As Integer
    Dim strCounselor As String
    
    strName = UCase(txtStudentName.Text)
    intName = Asc(strName)
    
    If intName < Asc("G") Then
            strCounselor = "Andy Flemming"
        ElseIf intName < Asc("M") Then
            strCounselor = "George Larson"
        ElseIf intName < Asc("S") Then
            strCounselor = "Mary Reynolds"
        Else
            strCounselor = "Susan Ziegler"
            
    End If
    
    lblCounselor.Caption = strCounselor
    
    
End Sub