Imports Priore.StudioPDFLib

Dim objPDF As Convert
Dim bInstall As Boolean = False

Try
    ' inizialize class
    objPDF = New Convert
Catch ex As Exception
    MessageBox.Show("OpenOffice Suite Required.")
    bInstall = True
End Try

If bInstall Then
    Try
        ' automatic download OpenOffice
        ' and try again inizialize
        Convert.OpenOfficeDownloadAndInstall()
        objPDF = New Convert
    Catch ex As Exception
        MessageBox.Show(ex.Message)
        End
    End Try
End If 

Try
    ' start conversion
    objPDF.MultipleFiles("c:\my-path\*.doc","c:\my-path\")
Catch ex As Exception
    MessageBox.Show(ex.Message)
Finally
    objPDF.Dispose()
End Try