
Sub Sample()
Dim buf As String
Open "c:\tmp.txt" For Output As #1
Print #1, "東京都"
Close #1
Open "c:\tmp.txt" For Input As #1
Do Until EOF(1)
buf = InputB(1, 1)
MsgBox Hex(AscB(buf))
Loop
Close #1
End Sub