vb 怎么打开一个文本文件，并将其中的内容记录到一个字符串量中

Option Explicit
Dim str1 As String
Dim str As String

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1 = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, str1
str = str & str1 & Chr(13) & Chr(10)
Text1 = str
Loop
Close #1
End Sub

二进方式打开文件的处理较复杂,它需逐字节以BYTE数据类型读进传递给BYTE数据类型的数组,对每字节用HEX函数转为16进制以字符串方式显示,已超出本问题讨论的范围.
Open "test.exe" For Binary As #1
' 若要以其他方式打开文件，必需先关闭此文件。
' 读用Get 语句， 写用Put语句
Close #1

同意
楼上