Option Explicit

'text_1 = <<<TXT
'   Ein Text am Anfang
'TXT;

    'text_2 = <<<TXT
    'und noch einer
    'am Anfang
    'TXT;


Const C_MODULE_NAME = "funcTest"

Public Sub testHeredoc()
'text_3 = <<<TXT
'   Innerhalb einer Funktion
'   Der Sieger im Jahr %d heisst %s
'TXT;

    print_r heredoc(C_MODULE_NAME, "text_1"), prShowType + prStringSingleQuotes
    print_r heredoc(C_MODULE_NAME, "text_2"), prShowType + prStringSingleQuotes
    print_r heredoc(C_MODULE_NAME, "text_3"), prShowType + prStringSingleQuotes
    print_r sPrintF(heredoc(C_MODULE_NAME, "text_3"), 2014, "Yaslaw"), prShowType + prStringSingleQuotes
    print_r heredoc(C_MODULE_NAME, "text_4"), prShowType + prStringSingleQuotes

End Sub

'text_4 = <<<SUFFIX
'   Der Text darf auch am
'           Ende des Moduls stehen
'SUFFIX;