Private Sub Command1_Click()
    Dim UnicodeString As String
    Open "unicodedatei.txt" For Binary As #1
    UnicodeString = Space(LOF(1))
    Get #1, , UnicodeString
    Close #1
    If Asc(Left(UnicodeString, 1)) = 255 And Asc(Mid(UnicodeString, 2, 1)) = _
      254 _
    Or Asc(Left(UnicodeString, 1)) = 254 And Asc(Mid(UnicodeString, 2, 1)) = _
    255 Then
        UnicodeString = Right(UnicodeString, Len(UnicodeString) - 2)
        UnicodeString = Replace(UnicodeString, Chr(0), "")
    End If
    RichTextBox1.Text = UnicodeString
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...