VBAでvsdファイルをpdf変換するときファイルが完全に閉じるようにしたい

前提・実現したいこと

VBAを使用して指定フォルダに配置しているvsdファイルを一括でpdf変換するマクロを作っております。
一応は出来上がったのですが、pdf作成後にVisioが立ち上がったままで終わってしまうのでこれを完全に閉じて終わるようにしたいです。
pdf変換元のvsdファイルは閉じているようなのですが、何ファイル変換しても空のVisio 1ファイルのみが立ち上がったまま終了してしまいます。
何か良い方法をご教授いただけますでしょうか。

該当のソースコード

Sub 
  
  Dim fld As FileDialog  'フォルダ選択のダイアログ表示用
  Dim myFileName As String  'Vordファイル名
  Dim myFolderPath As String 'Vordファイル保存先のフォルダパス
  Dim myFilePath As String  'Vordファイル／PFDファイルのパス
  Dim myDoc As Document  'Vordファイルのオブジェクト
  Dim intPos As Integer  'Vordファイル名取得用のピリオドの位置
  Dim vsApp
  Dim vsDoc
  Dim OpenVisFileName, VisioFileName, VisioFilePath, VisFileName As String

Set vsApp = CreateObject("Visio.Application")

  myFolderPath = "C:\test"
  myFileName = Dir(myFolderPath & "*.vsd")
 If myFileName = "" Then

    MsgBox "選択したフォルダ内に、Visioファイルがありません。"
    Exit Sub
  End If
 

  Do While myFileName <> ""
 
    'Vordファイルを開く
    myFilePath = myFolderPath & "\" & myFileName
    Set vsDoc = vsApp.Documents.Open(Filename:=myFilePath)
    DoEvents
  
    '拡張子のない名称を取得
    intPos = InStrRev(myFileName, ".")
    myFileName = Left(myFileName, intPos - 1)

      myFilePath = myFolderPath & "\" & myFileName & ".pdf"

    'PDF形式で保存
    vsApp.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, myFilePath, visDocExIntentPrint, visPrintAll
    DoEvents
  
    'Visioファイルを閉じる
    vsDoc.Close

    DoEvents
  
    '次のVisioファイルを検索
    myFileName = Dir()
  
  Loop
     vsApp.Quit
  Set myDoc = Nothing
  Set fld = Nothing
 
End Sub