Borrar Ficheros, problemas de bloqueo

[txarly]

Siguiendo con el mismo tema:
Mando un documento de Word a la impresora haciendo:

Código:

    Private Sub hplWord(ByVal pathFichero As String)

        Dim WA As New Word.Application
        Dim WD As Word.Document
        Dim HL As Word.Hyperlink

        Try

          WA.Visible = False
          WD = WA.Documents.Open(pathFichero)
          WD.PrintOut()

          WD.Close()
          WA.Quit()
          WA = Nothing

          GC.Collect()

        Catch e As Exception
          fi.WriteLine("Error1: " & e.Message)
        End Try

    End Sub

Como puedo hacer que no salga de la funcion hasta que el documento PDF que va a generar se haya creado?