Private Sub File1_Click()
  Dim F As Integer
  Dim sInhalt As String
  Dim sPath As String
 
  With File1
    If .ListIndex >= 0 Then
      sPath = .Path & IIf(Right$(.Path, 1) <> "\", "\", "")
 
      F = FreeFile
      Open sPath & .List(.ListIndex) For Binary As #F
      sInhalt = Space$(Lof(F))
      Get #F, , sInhalt
      Close #F
 
      Load frmTextEdit
      frmTextEdit.Text1.Text = sInhalt
      frmTextEdit.Show 1
      Unload frmTextEdit
    End If
  End With
End Sub