>>305
こんなんでどーよ。

'---------------
'乱数ジェネレータ初期化
Randomize

If Int(Rnd() * 3) = 0 Then
'あたりの処理
Else
'はずれの処理
End If
'---------------

Randomizeステートメントについてはここ。
http://www.microsoft.com/JAPAN/developer/library/script56/vsstmrandomize.htm

Rnd関数はこっち。
http://www.microsoft.com/JAPAN/developer/library/script56/vsfctrnd.htm