在vb里怎么读取txt文件里的内容啊？希望给例子，急！！！！！！！！！

Question

不管什么文件，都可以用 Open filename for binary as # 做

Answer 1

在窗体上放一个CommonDialog控件取名为dlga,在菜单中取一个为名称为"op"的菜单项,在窗体上画一个textBox控件,取名为"txtmsg",编写如下代码:
Private Sub op_Click()
On Error GoTo kk
dlga.ShowOpen
Open dlga.FileName For Input As 1
TxtMsg = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
kk:
End Sub

Answer 2

Private Sub GetText()
    dim ss as string
    dim strFile as string
    ss = String(20, 0)
    strFile = "文件名"
    Open strFile For Binary As #1
    Get #1, , ss
    msgbox ss
    Close #1
End Sub