Public Function ReadFile(ByVal sFile As String) As String
  Dim F As Integer
  Dim sInhalt As String
 
  If Dir$(sFile) <> "" Then
    F = FreeFile
    Open sFile For Binary As #F
    sInhalt = Space$(Lof(F))
    Get #F, , sInhalt
    Close #F
  End If
 
  ReadFile = sInhalt
End Function

Text1.Text = ReadFile("blablab.txt")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de