感觉不会的太多， 所以。。。。被羞辱。。。技艺不精。。。。 放心不会练那个葵花宝典！

[CODE]'*************************************************************************
'**函 数 名：ReadText
'**输 入：InFileName(String) -
'**输 出：(String) -
'**功能描述：快速读文件
'**全局变量：
'**调用模块：
'**作 者：心中有剑
'**日 期：2007-09-25 13:49:59
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Function ReadText(InFileName As String) As String
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------

Dim arrBytes() As Byte
Dim lngHandle As Long '文件句柄
Dim strFileName As String
lngHandle = FreeFile()
Open InFileName For Binary As lngHandle
ReDim arrBytes(1 To LOF(1))
Get lngHandle, , arrBytes
Close lngHandle
ReadText = StrConv(arrBytes, vbUnicode)
Erase arrBytes
'------------------------------------------------
Exit Function
'----------------
ToExit:
Dim lsErrStr As String
lsErrStr = "错误发生时间:" & Format(Now, "YYYY-MM-DD HH:MM:SS")
lsErrStr = lsErrStr & "错误 的 类型:" & Err.Number
lsErrStr = lsErrStr & "错误 的 信息:" & Err.Description
lsErrStr = lsErrStr & "错误函数名称:ReadText"
lsErrStr = lsErrStr & "错误模块名称:Form1"
MsgBox lsErrStr
Resume Next
End Function
[/CODE]

楼上高

呵呵 支持楼上的,也可以用 RichTextBox1.FileName="111.txt"