Imports Microsoft.Office.Interop

Dim WordApplication as Word.Application
Dim WordDocument as Word.Document

WordDocument = WordApplication.Documents.Open(Path)

   WordDocument.SaveAs2(FileName:=NewFilename, FileFormat:=Format, _
     LockComments:=False, Password:="", AddToRecentFiles:=True, _
     WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
     SaveNativePictureFormat:=False, SaveFormsData:=False, _
     SaveAsAOCELetter:=False, CompatibilityMode:=14)

WordDocument.Close()
WordApplication.Quit(Word.WdSaveOptions.wdSaveChanges, _
  Word.WdOriginalFormat.wdPromptUser)
WordApplication = Nothing