VB6.0可以二进制方式全部读取文件，然后将每字节用Hex函数循环转换为16进制字符串形式，拼接成字符串显示与富文本框。
Hex函数，返回代表十六进制数值的String。
Get语句，将一个已打开的磁盘文件读入一个变量之中。
实现代码：
Dim strWj As String
Dim aryContent() As Byte
Dim i As Long
Dim j As Long
CommonDialog1.CancelError = True ' 设置“CancelError”为 True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置标志
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
CommonDialog1.FilterIndex = 2 ' 指定缺省的过滤器
CommonDialog1.ShowOpen ' 显示“打开”对话框
' 显示选定文件的名字
'MsgBox CommonDialog1.FileName
Open CommonDialog1.FileName For Binary As #1
ReDim aryContent(LOF(1) - 1)
Get #1, , aryContent
Close #1
For i = 0 To UBound(aryContent)
strWj = strWj & Right("00" & Hex(aryContent(i)), 2) & " "
DoEvents
Next
RichTextBox1 = strWj
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
效果：
