Dim F As Integer
Dim sInhalt as String
Dim sLines() As String
Dim sFile As String
 
sFile = "DeineDatei.cfg"
 
F = FreeFile
Open sFile For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
sLines = Split(sInhalt, vbCrLf)