Code:
Dim intx As Integer
        Dim intmark As Integer
        Dim inttotalmarks As Integer
        Dim intstudents As Integer
        Dim inttotal As Integer
        Dim dblpercent As Double
        Dim chargrade(30) As Char
        Dim strgrade As String


        intstudents = Convert.ToInt32(txtnoofstudents.Text)

        For intx = 0 To (intstudents - 1)
            intmark = InputBox("Please enter the students mark")

            inttotal = Convert.ToInt32(txtmarksavailable.Text)

            dblpercent = intmark / inttotal * 100


            If Me.radday.Checked Then

                If dblpercent > 89 Then
                    strgrade = "A"
                ElseIf dblpercent > 79 Then
                    strgrade = "B"
                ElseIf dblpercent > 69 Then
                    strgrade = "C"
                ElseIf dblpercent > 59 Then
                    strgrade = "D"
                ElseIf dblpercent > 1 Then
                    strgrade = "F"
                End If

            Else

                If dblpercent > 84 Then
                    strgrade = "A"
                ElseIf dblpercent > 74 Then
                    strgrade = "B"
                ElseIf dblpercent > 64 Then
                    strgrade = "C"
                ElseIf dblpercent > 49 Then
                    strgrade = "D"
                ElseIf dblpercent > 1 Then
                    strgrade = "F"


                End If

            End If

            chargrade(intx) = Convert.ToChar(strgrade)

next
ok well thats my code and the problem i am having is with the last line, what i need is that after each grade is calculated to be passed into the array chargrade for futher processing later on....any suggestions on how to make that line work?