Private Function ReadFileToString(ByVal filename As String) As String
    Dim iFH As Integer
    Dim zeile, text As String
 
    iFH = FreeFile
 
    Open filename For Input As #iFH
 
    Do While Not EOF(iFH)
        Input #iFH, zeile
        text = text & vbCrLf & zeile
    Loop
 
    Close iFH
 
    ReadFileToString = text
End Function