[VB6] Txt Datei in Textbox

[Kur0k]

Private Sub Form_Load()
Text1.text =ReadFile("C:\boot.ini")
end Sub

Function ReadFile(ByRef Path As String) As String
  Dim FileNr As Long
  
  'Falls nicht vorhanden, nichts zurückgeben:
  On Error Resume Next
  If FileLen(Path) = 0 Then Exit Function
  On Error GoTo 0
  
  'Datei einlesen:
  FileNr = FreeFile
  Open Path For Binary As #FileNr
    ReadFile = Space$(LOF(FileNr))
    Get #FileNr, , ReadFile
  Close #FileNr
End Function

Einfach kopieren ncoh ne textbox erstellen fertig !! was ist daran so schwer XD?