'Hallo Florian Z.
'wenn ich Dich richtig verstehe geht es Dir nur darum eine Grafikdatei in eine
'Zeichenkette einzulesen. Dazu sollte der beigelegte Sourcecode reichen.
'NG.:10.03.03do
 
Private ContentBuffer As String
 
Private Sub GetFilecontent(ByVal Filename As String)
    Dim fno     As Long
 
    On Error Resume Next
    fno = FreeFile
    Open Filename For Binary Access Read As #fno
        ContentBuffer = Space$(LOF(fno))
        Get #fno, , ContentBuffer
    Close #fno
    Debug.Print ContentBuffer
End Sub
 
Private Sub Command1_Click()
    Call GetFilecontent(App.Path & "\test.bmp")
End Sub
'MfG
'Frank