Private Sub File1_DblClick()
    Dim strdummy() As Byte, Dateiinhalt() As Byte
    Dim fno As Integer
    Dim FileName As String
    Dim i As Integer
    Dim tmp As String
 
    Label1.Caption = vbNullString
 
    FileName = File1.Path
    If Right$(FileName, 1) <> "\" Then FileName = FileName & "\"
    FileName = FileName & File1.FileName
 
 
    fno = FreeFile
    Open FileName For Binary As #fno
        ReDim strdummy(LOF(fno) - 1) As Byte
        strdummy = Space$(LOF(fno))
        Get #fno, , strdummy
    Close #fno
    Dateiinhalt = strdummy
 
    For i = 0 To UBound(Dateiinhalt) - 1
        'ab hier bin ich raus... Kein Plan mehr :(
        tmp = ChrW(Dateiinhalt(i))
        Label1.Caption = Label1.Caption & ChrW(Dateiinhalt(i))
    Next i
 
     'StrConv(spuckt mir auch nur quatsch aus...)
'    TextBox1.Text = StrConv(, vbUnicode)
End Sub