把结果用字节集变量，再其字节集数据，长整数就行了，多大都能取
成都创新互联公司是专业的集安网站建设公司，集安接单;提供成都网站制作、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行集安网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。
2、双击Command1添加如下代码
Private Sub Command1_Click()
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
End Sub
3、按F8开始单步调试代码，点击Command1，进入单步调试功能，
4、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。
首先引入System.IO命名空间（在代码文件的最上方）
Imports System.IO
然后在需要用到的地方：
Dim mp3fileinfo As New FileInfo(mp3文件完整路径字符串)
'mp3fileinfo.Length就是文件的大小，以B（字节）为单位，除以1024得到KB，再除以1024得到MB
你实例化一个文件对象，就可以获取这个文件的相关属性了，VB.NET实例，以你的文件为例：
Dim sourcefileinfo As New FileInfo(“ c:\1.txt”) '定义并实例化FileInfo对象。length就是它的大小！
label1.Text = "文件大小为: " sourcefileinfo.Length "字节"