Rechtschreibmakro problem

Hallo,
ich habe direkt 2 Fragen.

Mein erste Frage lautet ob es möglich ist, daten aus einer tabelle in eine txt datei zu schreiben, ohne den vorherigen inhalt zu löschne / überschreiben.

dafuer mein bisheriger code(noch unausgereift):
Sub testRSP()
Dim irow As Integer
Dim s As String
Dim v As Integer


For irow = 1 To WorksheetFunction.CountA(Columns(2))

If Application.CheckSpelling(Cells(irow, 2).Value, , False) = False Then Cells(irow, 4).Value = Cells(irow, 2).Value


Next irow

Open "C:\Profile\t011451\Eigene Dateien\testRSP.dic" For Output As #1
Sheets("Tabelle1").Activate
Range("D1").Select

For v = 1 To ActiveSheet.UsedRange.Rows.Count
s = s & Cells(v, 4).Value & vbNewLine
Next v
Print #1, s
s = ""
Close #1
MsgBox "yeeeeeehaaaa"


End Sub

Ich möchte diese Datei gerne als Wörterbuch benutzten, um den Vorgang der Rechtschreibprüfung zu automatiesieren. Da ansonsten bei vielen Fremdbegriffen zuviel Arbeit entsteht.

Und da kommt meine 2te Frage, ist es per makro möglich nicht eingetragene Wörter im Wörterbuch und Fehlerhafte Wörter unterschiedlich auszulesen, bzw einzelne Befehle fuer gibt?

Weil ansonsten auch fehlerhafte Worte in das Wörterbuch eingetragen werden.

Ich danke fuer die Hilfe
cu