VB6で起動したVisioのマクロを実行したいのですが Excel みたいに Run のメソッドが無いみたいで・・・

Private appVisio As Visio.Application
Private docVisio As Visio.Document
Set appVisio = New Visio.Application
Set docVisio = appVisio.Documents.Open(VisioPath)

でVisioは開いています。

線の色を変えたり文字を替えたりは出来たのですがどうしてもマクロを実行出来ないでいます。

VisioのVBAコードは標準モジュールに書いてあります。

環境の記載をしておりませんでした。
OSはWindowsXp SP3 Visioは 2002 か 2007 を使用する予定です。
２バージョン有るのは開発環境は 2002 で実際客先では 2007 を使用する予定です。