Dim DateiName As String
Dim DateiNr As Integer
Dim Zeile As String
DateiName = "c:\datei.txt"
DateiNr = FreeFile
Dim text As String
text = ""
Open DateiName For Input As DateiNr
           Do While Not EOF(DateiNr)
                  Line Input #DateiNr, Zeile
                  text = text & Zeile & vbCrLf
           Loop
Close DateiNr

Dim Zelle As Range
Dim Quelle As Object
Set Quelle = ActiveWorkbook
Quelle.Worksheets("Tabelle").Activate
Cells(1, 1).Value = "Text"