xlAtom Nr. 000005

Mit dem folgenden Code wird eine auszuwählende Textdatei in eine String-Variable eingelesen und über MessageBox ausgegeben:

Sub DateiEinlesen()
   Dim strDateiInhalt As String
   Open Application.GetOpenFilename For Binary As #1
   strDateiInhalt = Space(LOF(1))
   Get #1, , strDateiInhalt
   Close #1
   MsgBox strDateiInhalt
End Sub