The VB code

Private Sub Webpage Load()

x = MsgBox ("You are an idiot!", vbYesNo, "uchi.blogspot.com")

If x = vbYes Then

MsgBox ("It's good that you know it", vbInformation, "uchi.blogspot.com")

Elseif x = vbNo Then

MsgBox ("Ah! now i see, you are an asshole", vbCritical, "uchi.blogspot.com")

End If

webpage.Hide
Unload Me

End Sub