VB代码查找器：快速定位关键字代码行

以下是一个简单的查找VB代码的程序示例：

Imports System.IO

Module Module1

    Sub Main()
        Console.WriteLine('请输入要查找的VB文件路径：')
        Dim filePath As String = Console.ReadLine()

        Console.WriteLine('请输入要查找的关键字：')
        Dim keyword As String = Console.ReadLine()

        SearchVBCode(filePath, keyword)

        Console.ReadLine()
    End Sub

    Sub SearchVBCode(ByVal filePath As String, ByVal keyword As String)
        If File.Exists(filePath) Then
            Dim lines As String() = File.ReadAllLines(filePath)
            Dim lineNumber As Integer = 1

            For Each line As String In lines
                If line.Contains(keyword) Then
                    Console.WriteLine('在第 ' & lineNumber & ' 行找到关键字：' & keyword)
                    Console.WriteLine(line)
                    Console.WriteLine()
                End If
                lineNumber += 1
            Next

            Console.WriteLine('搜索完成。共找到 ' & lineNumber - 1 & ' 处关键字：' & keyword)
        Else
            Console.WriteLine('文件不存在！')
        End If
    End Sub

End Module

这个程序会提示用户输入要查找的VB文件路径和关键字，然后会在文件中逐行搜索，如果找到包含关键字的行，就会打印出该行代码和行号。最后会显示搜索完成，并告知找到的关键字的总数。