求助：VB中怎样由菜单选中文本文件，并由文本框打开？急！

Private Sub mnuOpen_Click()
Dim oDLG
Dim b() As Byte, S As String
Set oDLG = CreateObject("MSComDlg.CommonDialog")
With oDLG
.DialogTitle = "打开文件"
.Filter = "文本文件|*.txt"
.MaxFileSize = 255
.ShowOpen
If .FileName <> "" Then
ReDim b(FileLen(.FileName))
Open .FileName For Binary As #1
Get #1, , b
Close #1
Text1.Text = StrConv(b, vbUnicode)

End If
End With
Set oDLG = Nothing

End Sub

很简单的，用commanddialog控件就行了，上网找一下用法，几分钟就会了

CommonDialog1.Filter = "文档文件(*.txt)|*.txt|"
CommonDialog1.ShowOpen
dim a as string , b as string
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Input #1, a
b = b & a
Loop
text1.text =