Let's try a little bit different approach:

Code:
Public Function SplitArray(pString As String, pDelimeter As String, pArr() As String) As Boolean
    Dim iPos As Integer
    Dim arrTemp() As String
    Dim i As Integer
    Dim strTemp As String
    Dim iTempUbound As Integer
    
    On Error Resume Next
    
    strTemp = pString
    
    iPos = InStr(strTemp, pDelimeter)
    Do Until strTemp = ""
        ReDim Preserve arrTemp(i)
        If InStr(strTemp, pDelimeter) Then
            arrTemp(i) = Trim(Left(strTemp, InStr(strTemp, pDelimeter) - 1))
            strTemp = Mid(strTemp, InStr(strTemp, pDelimeter) + 1)
        Else
            arrTemp(i) = Trim(strTemp)
            strTemp = ""
        End If
        i = i + 1
    Loop
    
    iTempUbound = UBound(arrTemp)
    If Err.Number = 0 Then
        pArr = arrTemp
        SplitArray = True
    End If
End Function

Private Sub Command1_Click()
    Dim xColumnHeader As ColumnHeader
    Dim xListItem As ListItem
    Dim intFFN As Integer
    Dim strPath As String
    Dim strBuffer As String
    Dim arrString() As String
    Dim i As Integer
    
    
    With ListView1
        .View = lvwReport
        Set xColumnHeader = .ColumnHeaders.Add(, , "Protocol")
        Set xColumnHeader = .ColumnHeaders.Add(, , "Local Address")
        Set xColumnHeader = .ColumnHeaders.Add(, , "Foreign Address")
        Set xColumnHeader = .ColumnHeaders.Add(, , "State")
    End With
    
    strPath = "d:\Text.txt"
    intFFN = FreeFile
    Open strPath For Input As intFFN
    Do Until EOF(intFFN)
        Line Input #1, strBuffer
        If SplitArray(strBuffer, " ", arrString) = True Then
            With ListView1
                Set xListItem = .ListItems.Add(, , arrString(0))
                For i = 1 To UBound(arrString)
                    xListItem.SubItems(i) = arrString(i)
                Next
            End With
        End If
    Loop
    Close #intFFN
End Sub

Although, the first solution is working fine on my machine.

------------------

Serge

Senior Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819