Function RemoveSpaces(prob As String) As String
        Do While InStr(prob, " ") <> 0 : prob = Replace(prob, " ", " ") : Loop
        RemoveSpaces = Trim(prob)
End Function

            
While (EOF <> "True" And sr.Peek() >= 0)
                        strLine = sr.ReadLine()
                        'Здесь надо удалить все лишние пробелы
                        strLine = RemoveSpaces(strLine)
                        s = regexp.Split(strLine)
                        'Разбиваю строку на массив и записываю (пока что без выделения 5-го элемента) в другой лист.
                        For t = 0 To s.GetUpperBound(0)

                            'If (t Mod 4) = 0 Then
                            ListBox2.Items.Add(s(t))
                            'End If
                        Next

                        If (strLine <> "") Then
                            ListBox1.Items.Add(strLine)
                            i = i + 1
                        Else
                            EOF = "True"
                        End If
End While

If Len(s(t)) <> 0 Then
   ListBox2.Items.Add(s(t))
End If