Поиск заданной строки в файле - Visual Basic .NET

Dim str As String = "HasBeenEncoded" 'искомая строка
    Dim path As String = "C:\Users\administrator\Desktop\VB.txt" 'путь к файлу
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            MsgBox(FindStrInFile(IO.File.ReadAllText(path, System.Text.Encoding.Default)))
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Function FindStrInFile(ByVal source As String) As Boolean
 
        If source.Contains(str) = True Then
            Return True
            Exit Function
        End If
 
        Return False
 
    End Function