Dim F As Long, sFile As String, sBuf As String, L As Long, S As String
 
  sFile = "C:\xxxx.txt"
 
  F = FreeFile
 
  L = 1
  S = ""
 
  Open sFile For Binary Access Read As #F
 
    Do While Not EOF(F)
 
      sBuf = Space(30000)
      Get #F, L, sBuf
      S = S & sBuf
      L = L + Len(sBuf)
 
    Loop
 
  Close #F
 
  Text1.Text = S

Viel Spass,
R@lf