then add a listbox(sort=true),a commandbutton and copy this code to your form1:
Private Sub Command1_Click()
Dim i As Long, mybyte() As Byte, temp, a() As String
Open "d:\xxx.txt" For Binary As #1
ReDim mybyte(LOF(1))
Get #1, , mybyte
Close #1
temp = Split(StrConv(mybyte, vbUnicode), vbCrLf)
Erase mybyte
ReDim a(UBound(temp) \ 4)
For i = 0 To UBound(temp) Step 4
a(i \ 4) = temp(i) & "*" & temp(i + 1) & "*" & temp(i + 2) & "**"
Next
Set temp = Nothing
For i = 0 To UBound(a)
List1.AddItem InStr("一二三四五六", Mid(Split(a(i), "*")(2), 5, 1)) & a(i)
Next
For i = 0 To List1.ListCount - 1
a(i) = Replace(Right(List1.List(i), Len(List1.List(i)) - 1), "*", vbCrLf)
Next
Open "d:\yyy.txt" For Binary As #1
Put #1, , Join(a, "")
Close #1
MsgBox Join(a, vbCrLf), 0, "ok"