Option Explicit
 
Private Sub Form_Load()
  Me.OLEDropMode = 1
End Sub
 
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As _
  Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  If Data.Files.Count = 1 Then
    Debug.Print ReadFile(Data.Files(1))
  End If
End Sub
 
' Inhalt einer Datei auslesen und als String zurückgeben
Private Function ReadFile(ByVal sFile As String) As String
  Dim F As Integer
  Dim sBuffer As String
 
  On Error Resume Next
  F = FreeFile
  Open sFile For Binary As #F
  sBuffer = Space$(LOF(F))
  Get #F, , sBuffer
  Close #F
  On Error GoTo 0
 
  ReadFile = sBuffer
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de