Imports System.IO Public Class filterGUI Private Function filterRecords(ByVal filter As String, Optional ByVal records As List(Of String) = Nothing) Dim recs As List(Of String) = New List(Of String) If (Not records Is Nothing) Then For Each s As String In records recs.Add(s) Next Else 'Get from file Using sr As New StreamReader(Form1.filePath) While (sr.Peek <> -1) recs.Add(sr.ReadLine()) End While End Using End If If (recs.Count > 0) Then Dim retRecords As List(Of String) = New List(Of String) For Each record As String In recs If (record.Contains(filter)) Then retRecords.Add(record) Next Return retRecords Else : MsgBox("No records found!") End If Return "" End Function End Class