>>107
配列 a() は不要。

Sub Main(): Randomize: MsgBox "運勢は" & Array("大吉", "中吉", "小吉", "末吉", _
"吉", "凶", "大凶")(Int(Rnd * 7)): End: End Sub

あるいは微妙に動作は違うけど...

Sub Main(): Randomize: MsgBox "運勢は" & Mid$("大吉中吉小吉末吉吉　凶　大凶", _
2 * Int(Rnd * 7) + 1, 2): End: End Sub

とか。