3点入力の円

３次元空間上の３点指定の円の計算をするプログラムを作成しましたのでアップします。
球面上の３点、、始点（原点）、通過点（ＰＯＳ１）、終点（ＰＯＳ２）の平面で切断したような円を計算します。

プログラムはＶｉｓｕａｌＢａｓｉｃ６．０ＳＰ５で作成しています。実行するには別途ランタイムが必要です。
尚、０で除算等のオーバーフロー等には未対応対策の為、入力値によってはエラーで終了してしまいます。