vb6 - VB6 でコードを実行する最大時間を設定する

Question

Word 文書を開く 1 行のコードがありますが、このコードが失敗し、プログラム全体が無期限にロックされることがあります。

Set oDoc = oApp.Documents.Open(sF)

理想的には、一定の時間が経過した後にこのコード行を中止できるようにしたいと考えています。VB6 を使用したマルチスレッドの例をいくつか調べましたが、あまり成功しませんでした。