在VB（Visual Basic）中打开文件，你可以使用以下几种方法：
使用 `Open` 语句
通过 `Open` 语句配合 `For Binary` 参数可以以二进制方式打开文件。例如：
```vb
Dim filename As String
filename = "C:\example.txt"
Open filename For Binary As 1
' 现在您可以使用LOF（）和LOC（）函数来操作文件
Close 1
```
使用 `LOF（）` 函数获取文件的大小，`LOC（）` 函数获取当前文件指针的位置，然后使用 `Get` 和 `Put` 语句来读取和写入文件。
使用 `FileSystemObject`
创建 `FileSystemObject` 对象，然后使用 `OpenTextFile` 方法打开文件。例如：
```vb
Dim fs As Object
Dim file As Object
Set fs = CreateObject（"Scripting.FileSystemObject"）
Set file = fs.OpenTextFile（"C:\path\to\file.txt", 1）
Do While Not file.AtEndOfStream
MsgBox file.ReadLine
Loop
file.Close
Set file = Nothing
Set fs = Nothing
```
使用 `Do While` 循环读取文件内容，并在每次循环中使用 `MsgBox` 显示一行内容。
使用 `FreeFile` 函数
获取一个文件句柄，然后使用 `Open` 语句以输入模式打开文件。例如：
```vb
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv（InputB（FileLen（strFile）, intFile）, vbUnicode）
Debug.Print strData
Close intFile
```
使用 `FileLen` 函数获取文件内容字节大小，`InputB` 函数读取文件内容字节流，`StrConv` 函数将字节流转换为 Unicode 字符串。
使用 `CommonDialog` 组件
虽然 `CommonDialog` 组件只能选择文件，但你可以通过它选择文件路径，然后使用该路径来打开文件。
使用 `Dir` 函数
如果你不知道文件名，可以使用 `Dir` 函数列出指定目录下的文件，然后使用 `Open` 函数打开文件。例如：
```vb
Dim fileName As String
fileName = Dir（"C:*.txt"）
Do While fileName <> ""
Open "C:\" & fileName For Input As 1
' 在这里进行文件处理
Close 1
fileName = Dir（）
Loop
```
使用通配符 `*` 来匹配多个文件。
根据你的需求选择合适的方法来打开文件。如果你需要处理大文件，建议使用 `FileSystemObject` 或 `FreeFile` 函数来确保能够读取整个文件内容。如果你只需要简单地打开并显示文件内容，可以使用 `Open` 语句配合 `For Binary` 参数或 `OpenTextFile` 方法。