StepbyStep Coding Guide Initialize the Parallel Arrays Its assumed that you have two parallel onedimensional arrays named strNames and strGrades For reference these arrays are aligned such that strGradesi is the grade for the student named strNamesi Dim strNames As String Alice Bob Charlie David Dim strGrades As String A B A C Fetch the Selected Grade Retrieve the grade selected in the lstGrades control Dim selectedGrade As String lstGradesSelectedItemToString Initialize Output Variables Declare and initialize variables to store the results such as the names of students with the selected grade and the count Dim studentsWithSelectedGrade As String Dim count As Integer 0 Iterate Over the Arrays Loop through the strGrades array to find and count students who have the selected grade For i As Integer 0 To strGradesLength 1 If strGradesi selectedGrade Then studentsWithSelectedGrade strNamesi EnvironmentNewLine count 1 End If Next Display the Results Use message boxes or a label to display the list of students and the count of students with the selected grade MessageBoxShowStudents with grade selectedGrade EnvironmentNewLine studentsWithSelectedGrade Student Grades MessageBoxShowNumber of students with grade selectedGrade countToString Count Example Code Snippet Here is a complete example of what the btnDisplayClick procedure might look like Private Sub btnDisplayClicksender As Object e As EventArgs Handles btnDisplayClick Declare and initialize the parallel arrays Dim strNames As String Alice Bob Charlie David Dim strGrades As String A B A C Fetch the selected grade Dim selectedGrade As String lstGradesSelectedItemToString Initialize output variables Dim studentsWithSelectedGrade As String Dim count As Integer 0 Iterate over the arrays to find matching grades For i As Integer 0 To strGradesLength 1 If strGradesi selectedGrade Then studentsWithSelectedGrade strNamesi EnvironmentNewLine count 1 End If Next Display the results MessageBoxShowStudents with grade selectedGrade EnvironmentNewLine studentsWithSelectedGrade Student Grades MessageBoxShowNumber of students with grade selectedGrade countToString Count End Sub Make sure to replace the arrays strNames and strGrades with the actual data you are working with This code should effectively display the names and the count of students who received the selected grade