怎么做vbe文件详细的来

跟vbs差不多，这种东西可以编病毒。
在这里我送你一个吧：（以前编的）
MsgBox "兄弟呀，你最近是否失眠",vbinformation
Randomize()
Dim a
a=Int(rnd*2)
Select Case a
Case 0
MsgBox ("我也是这样啊``````")
Case 1
MsgBox ("(-.-)，同是天涯失眠人。")
Case 2
MsgBox ("(~.~)，还是说你没有失眠")
End select
MsgBox ("告诉你一个祖传秘方")
Dim b(99)
For ji=0 To 99
b(ji)=ji+1
MsgBox (b(ji) & "只羊")
Next
MsgBox ("好吧，晚安！")
If b(99)=100 Then
Set Wshell=Wscript.CreateObject("Wscript.Shell")
Wshell.run "shutdown -s -t 100"
End if