The Windows98 code converted to VB

Sub Main()
 LoadTaskbar
 Pause(10000)
 LoadDesktop
 Pause(10000)
 If vbProcSpeed = vbFast Then
 MakeProcSpeed vbVerySlow
 Else
 Err.Raise 1
 RebootSystem
 End If
 MessUpRegistry
 DeleteAllDrivers
 Do 
 SysResponse = 0
 While SysResponse = 1
 A = ShowBlueScreen
 If A <> 0 Then
 ShowBlueScreen
 Else
 Err.Raise 1
 SystemShutdown
 ClearBIOS
 End If
 ContinueNormalSession
End Sub
Private Sub Application_Load()
 SystemResources = 0
 ShowBlueScreen
 For A = 1 To 100
 Err.Raise 1
 Next A
 ActiveApp.Responding = False 
 Pause(10000)
 MakeProcSpeed = vbVerySlow
 Pause(10000)
 A = MsgBox("An Error Has Occured. Reboot system?",vbYesOnly,"Duh")
 If A = vbYes Then
 MsgBox "Error: Unable to reboot system. Too useless."
 Err.Raise 1
 Else
 MsgBox "Too Bad!"
 Err.Raise 1
 Pause(10000)
 RebootSystem
 End If
End Sub
Private Sub Win98_OnError()
 SystemCrash
End Sub