Dim jpStr as String
jpStr = "メ"
dim byteArray() as Byte
byteArray() = strConv(jpStr,vbUnicode)
writing it to a file
Dim binObj As Object
Set binObj = CreateObject("adodb.stream")
binObj.Open
binObj.WriteText byteArray
binObj.SaveToFile "D:\A4\Message_tool\surya.bin", adSaveCreateOverWrite
Reading binary file
Dim intFileNum, bytTemp As Byte, intCellRow
intFileNum = FreeFile
intCellRow = 10
Open "D:\A4\Message_tool\surya.bin" For Binary Access Read As intFileNum
Do While Not EOF(intFileNum)
intCellRow = intCellRow + 1
Get intFileNum, , bytTemp
Cells(intCellRow, 1) = ChrW(bytTemp)
Loop
Close intFileNum
Output is ÿþá 0

what I'm expecting is "メ"