すいません質問させていただきます

FF F4 BC
のバイナリデータを
BC F4 FF
にしたいのですが
BC 81 45
になってしまいます。
なぜでしょうか？

プログラムはこんな感じです
Dim Strbuff As String
Dim FileNo1 As Integer
Dim FileNo2 As Integer
FileNo1 = FreeFile
Open "rp" + ".txt" For Binary Access Read As #FileNo1
FileNo2 = FreeFile
Open "rp2" + ".txt" For Binary Access Write As #FileNo2
Strbuff = String(3, Chr(0))
Get #FileNo1, 1, Strbuff
Strbuff = StrConv(Strbuff, vbFromUnicode)
Strbuff = MidB(Strbuff, 3, 1) + MidB(Strbuff, 2, 1) + MidB(Strbuff, 1, 1)
Strbuff = StrConv(Strbuff, vbUnicode)
Put #FileNo2, , Strbuff

Close #FileNo2
Close #FileNo1