Read Entire File Contents - VB6

Dim fileName As String
Dim fileNum As Long
Dim fileSize As Long

fileName = App.Path
If Right$(fileName, 1) <> "\" Then
    fileName = fileName & "\"
End If
fileName = fileName & App.EXEName
fileName = fileName & ".dll.config"

fileSize = FileLen(fileName)
strConnect = String(fileSize, " ")
fileNum = FreeFile()
Open fileName For Binary Access Read As #fileNum
Get #fileNum, 1, strConnect
Close #fileNum