Dim Mozi(5) As String
Dim Str As String

Mozi(1) = "VB氏ね氏ね"
Mozi(2) = "VC最高！"
Mozi(3) = "糞糞VB"
Mozi(4) = "VBは反面教師"
Mozi(5) = "VBプログラマーは逝ってよし"

Radamize

Do While (1)
Str = Str & Mozi((Rnd * 5) + 1)
MsgBox Str
Loop