>>115
微妙に変だから直しました
あとEndは無しでもいけそう
$も不必要かと

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