VB中怎么从.TXT文件中读数据

open "文件名" for input as #1
dim strline as string
dim strtext as string
do until eof(1)
    line input #1,strline
    strtext=strtext+vbcrlf+strline
loop
close #1

楼主应当看看基本的VB函数和语句。