Tiedoston koko sisältö muuttujaan

Private Function ReadFile(ByVal sFilePath As String) As String
Dim s As String
Dim sl As String

Open sFilePath For Input As #1
Do Until EOF(1)
Input #1, sl
s = s & sl & vbCrLf
Loop
Close #1

ReadFile = s
End Function