VB打开文本代码怎么写。高手帮忙下。

Private Sub Command2_Click()
Dim data$
Open "你的文本路径及名称.TXT" For Input As #1
Input #1, data
Text1.Text =data
Close #1
End Sub

Private Sub Command2_Click() 
Dim buf as string
Open "你的文本路径及名称.TXT" For binary As #1 
buf=string(lof(1),0)
get #1, , buf 
Close #1 
text1.text=buf: buf=""
End Sub

是你不行 不是我不�

VB4.3以后的版本都使用Unicode了，代码如下:

Private Sub Command2_Click() 
Open "C:\aaa.txt" For Input As #1 
Text1.Text=strConv(inputB(LOF(1),1),vbUnicode)
Close #1
End Sub

VB4.3以后的版本都使用Unicode了，代码如下: 

Private Sub Command2_Click() 
Open "C:\aaa.txt" For Input As #1 
Text1.Text=strConv(inputB(LOF(1),1),vbUnicode) 
Close #1 
End Sub