Mine

    Private Sub GetSecondTableInfo(ByRef TableData(,) As String)
        Dim srdFile As New IO.StreamReader(txtOut.Text.Replace(".doc", ".dat"))
        Dim blnGood As Boolean = False
        Dim TableDataT(7, 0) As String
        Dim ic As Integer = 0 'Counter
        Dim tmp As String = ""
        Dim Subnet As String = ""
        Dim HostIP As String = ""
        Dim PortID As String = ""
        Dim NessussID As String = ""
        Dim DevName As String = ""

        tmp = srdFile.ReadLine

        Do Until srdFile.Peek = -1
            If tmp.IndexOf("Subnet:") <> -1 Then
                Subnet = tmp.Replace("Subnet:", "")
            ElseIf tmp.IndexOf("HostIP:") <> -1 Then
                HostIP = tmp.Replace("HostIP:", "")
            ElseIf tmp.IndexOf("PortID:") <> -1 Then
                PortID = tmp.Replace("PortID:", "")
            ElseIf tmp.IndexOf("NessussID:") <> -1 Then
                NessussID = tmp.Replace("NessussID:", "")
                blnGood = True
            ElseIf tmp.IndexOf("-") <> -1 Then
                'Clear Info
                Subnet = ""
                HostIP = ""
                PortID = ""
                NessussID = ""
                DevName = ""
                blnGood = False
            End If

            If blnGood Then
                ReDim Preserve TableDataT(7, ic)
                TableDataT(0, ic) = 2
                TableDataT(1, ic) = Subnet
                TableDataT(2, ic) = HostIP
                TableDataT(3, ic) = PortID
                TableDataT(4, ic) = NessussID
                TableDataT(5, ic) = ""
                'TableDataT(6, ic) = DevName
                For ii As Integer = 0 To Length - 1
                    If TableData(2, ic) = HostIP Then
                        TableDataT(6, ic) = TableData(6, ic)
                    End If
                Next
                TableDataT(7, ic) = ""
                blnGood = False
                ic += 1
            End If
            tmp = srdFile.ReadLine
        Loop

        srdFile.Close()
        TableData = TableDataT
        Length = ic
    End Sub