Membaca dan Menampilkan Karakter Unicode

Option Explicit

Private Sub Command1_Click()
    Dim a(0 To 5) As Byte
    a(0) = &HFF
    a(1) = &HFE
    a(2) = &H39
    a(3) = &H4E
    a(4) = &H44
    a(5) = &H0
    Open "unicode.txt" For Binary As #1
    Put #1, , a
    Close #1
End Sub

Private Sub Command2_Click()
    Dim txtline As String

    Open "unicode.txt" For Binary As #1
        txtline = InputB(2, #1)
        txtline = InputB(4, #1)
    Close #1

    TextBox1.Text = txtline
End Sub