変数名の頭に数字って使えましたっけ？

やりたい事を実現するのに、配列というのを使うのも手ですよ。

http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard27.htm

Dim MessStr(6) As String

MessStr(1) = "こんにちは、数あるメッセージのうちの１つにすぎません"
・
・
・
・

'Rndで取得した数値をiとすると・・・
'MessStr(i)で取得できるので
MsgBox(MessStr(i))


ってね。