窗体上放入一个多行文本框（带纵向滚动条），一个命令按钮：

Private Sub Command1_Click()

Dim ss() As Byte,i As Long

Open "e:\tmp\123.txt" For Binary As #1

ss = InputB(LOF(1),#1)

Close #1

For i = 0 To UBound(ss) 

	If i > 0 And (i Mod 16) = 0 Then 

		Text1.SelText = vbCrLf

		Text1.SelText = Right("0" & Hex(ss(i)),2) & " "

	endif

Next

End Sub