Public Function getFile(filename As String, do_replace As Boolean) As String
    Dim str As String
 
    Open filename For Input As #1
        While Not EOF(1)
          Line Input #1, sLine
 
          ' Zeile wird in str gespeichert
          str = sLine & vbCrLf
          ' Ersetzten der Zeichen
          If (do_replace = True) Then
            str = Replace(str, "|", ";")
            str = Replace(str, ",", "|")
          End If
          wholeFile = wholeFile + str
        Wend
    Close #1
          getFile = wholeFile
End Function