>>111
スペースを全角→半角
int() → \ 1
+1　→　文字列の最初に半角スペース
で４文字減

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

意味ないのでsage