Sub main()
Open "c:\temp\25.txt" For Input As #1
Clipboard.Clear
Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)
End Sub