ASP.NET

Private Sub IbtnSubmit_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles IbtnSubmit.Click
Dim I As Integer
        Dim J As Integer = 0
        Dim oldI As Integer
        Dim oldJ As Integer
        Dim colnum As Integer = 0
        Dim tmparray(35) As String
        Dim tmpstr As String
        Dim instr As String = tboxauto.Text
        Dim objArrayList As New Collections.ArrayList   'Input parameters

        If instr.Length = 0 Then
            showmessagebox("You need to copy the Excel section into the text box")
            Exit Sub
        End If
'Parse through the excel file copied into the textbox
        I = instr.IndexOf(Chr(13))
        oldI = 0
        While I <> -1
            tmpstr = instr.Substring(oldI, I - oldI)
            oldJ = 0
            J = tmpstr.IndexOf(Chr(9))
            cleararray(tmparray)
            colnum = 0
            While J <> -1
                If colnum > 32 Then
                    Exit While
                End If
                tmparray(colnum) = tmpstr.Substring(oldJ, J - oldJ)
                colnum += 1
                oldJ = J + 1
                J = tmpstr.IndexOf(Chr(9), J + 1)
            End While
            If tmparray(1).ToUpper = "ISR" OrElse tmparray(1).ToUpper = "HELP DESK TICKET" Then
                'skip because this is the header of the excel file
            Else
                processauto(tmparray)
            End If

            oldI = I + 2 '2 because of cr and lf
            I = instr.IndexOf(Chr(13), I + 1)
        End While
    End Sub
    Private Sub cleararray(ByRef inarry() As String)
        Dim I As Integer = 0
        While Not (inarry(I) Is Nothing)
            inarry(I) = Nothing
            I += 1
        End While
    End Sub
    Private Sub processauto(ByVal inarry() As String)
'YOu can write some code here to use the data.
    End Sub