把文件置入到Text或RichText中   
 
dim sFile as string
'Set sFile equal to your filename
dim i as long

i = freefile()

open sFile for input as #i
txtMain.text = input$(i,LOF(i))
close #1