Do Until reader.EndOfStream
 
            Dim line As String = reader.ReadLine
 
            If line.Contains("@marvin") Or line.Contains("freddy") = True Then
 
                lboxTop.Items.Add(line)
 
            Else : lboxFlop.Items.Add(line)
 
            End If
 
        Loop