Sub Click(Source As Button)

     ' --- FileSystemObjectオブジェクト作成
     Set fsObj = CreateObject("Scripting.FileSystemObject")

     ' ---  pdf化が終了するまでループ
     Do
          If (fsObj.FileExists("C:\windows\system.ini")) Then
               Msgbox "Found !"
               Exit Do
          Else
               Msgbox "Not Found !"
               Exit Do
          End If
     Loop

End Sub