vb.net で word をpdfに・・・したいなぁ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	Dim FilePath As String
	Dim WA As New Word.Application
	Dim WF As Word.Document
	FilePath = "G:\a001.doc"
	WF = WA.Documents.Open(FilePath)

	'WF.SaveAs("g:\a002.doc")
	'WF.PrintOut(, , , "G:\a002.doc", , , , , , , True, )
	WF.Close()
	WA.Quit()

End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
	Dim objWord = CreateObject("Word.Application")
	Dim strFileName As String = "G:\b001.doc"
	Debug.Write(objWord.Version)
	objWord.Documents.Open(strFileName)
End Sub