VBでAPを作成しました。実行するとIfasActionStatusが000なのにエラーステートメントが動いてしまいます。

メソッドのパラメータ属性をVARIANTにすべき所がVARIANT以外の属性になっている可能性があります。パラメータの属性が正しいか確認してください。