MessageBox mit Memo als Text in *vbs

[DarkItachi]

Hallöchen!

Ich wusste jetzt nicht, ob mein Beitrag in VCL oder WinAPI kommt, da bei mir beides gebraucht wird, glaube ich...
Ganz kurz:

Ich habe ein Memo, ein Edit, ein Button und eine DropDownListe.
Über den Button macht mein Programm eine MessageBox mit Titel vom Inhalt des Edits, Text vom Inhalt des Memos und die Buttons vom Index bestimmt der DropDownliste.
MessageBox(0, Pchar(Memo1.Text), Pchar(Edit1.Text), x + 64); * (x : integer) also Buttons

Ich mache über einen anderen Button ein vbs Script.

'msgbox"' + Pchar(Memo1.Text) + '",' + x + ' + 64",' + Pchar(Edit1.Text) + '"'; So habe ich das reingeschrieben!

So jetzt meine Frage:

In der Memo kann man ja mit Enter eine neue Line machen.
Für jede neue Line möchte ich das dieser Code: & vbCrLf & eingefügt wird...

Wie macht man das am besten?
Ps.:
Ich glaube, es wäre am besten wenn man eine Stringlist erstellt und dann jede Zeile vom Memo1 dort reinkopiert und für jede neue Zeile aber " & vbCrLf & " hinzufügt.
& vbCrLf & ist eine neue Line im vb!

Thx erstmal