下から来ると結構ムズイ・・・。

・getangleの引数の型が指定されていない(As...がない)。これだと全部Variant型なので遅いよ。

・plySndは、文字列の比較でどの音を出すか決めているようだが、文字列の比較は遅い。
Long型のConstを使ったら?。
Const SOUND_HIT As Long = 1
plySnd SOUND_HIT
みたいな感じ。