Dim 産能通信 As Integer

産能通信 = Int(Rnd() * 3)

If 産能通信 = >>277 Then
　MsgBox("正確な日本語を書けるようになりましょう")
End If

If 産能通信 = >>278 Then
　MsgBox("粘着")
End If

If 産能通信 = >>280 Then
　MsgBox("まともな意見でホットする")
End If