Visual Basic 6 - Problema word application

Salve a tutti
ho un sorgente che mi crea ed apre un doc

Dim Wrd As Object ' Word Object

Set Wrd = Nothing
Set Wrd = CreateObject("Word.Basic"
Wrd.FileNewDefault
Wrd.AppShow

Selection.Paragraphs.Alignment = wdAlignParagraphJustify
Wrd.Insert "bla, bla..."
.......
poi vado a scrivere sul doc con un pulsante che mi attiva la scrittura (tutto ok)

Sullo stesso file dovrei ripetere l'operazione di scrittura con lo stesso pulsante
(naturalmente sono variati i dati nei text box nei quali il pulsante va a prendere i dati)
non aprendo un nuovo file ma scivendo di seguito su quello già aperto...
e qui non ci riesco.
In poche parole necessiteri delle istruzioni per:
* Verificare se c'è un doc aperto,
* se è aperto ignorare l'apertura di un nuovo doc e scrivere di seguito
* se non è aperto un doc crearlo ...

Grazie

Claudio

Risolto.

Dim Wrd As Object

On Error Resume Next
Set Wrd = GetObject(, "Word.Basic"

Wrd.Activate

If Wrd Is Nothing Then
Set Wrd = CreateObject("Word.Basic"
Wrd.FileNewDefault
Wrd.AppShow
Wrd.Activate
End If

Bye