求一个VB小程序的代码

Private Sub Form_Click()

MsgBox "做我女朋友好吗", vbQuestion, "在吗"

MsgBox ("房产写你名字")

MsgBox ("保大")

MsgBox ("我妈会游泳")

Dim j

Do While j < 1

Select Case MsgBox("做我女朋友好吗", 68, "请郑重的回答我")

Case 6

j = 1

Case 7

MsgBox ("再给你一次机会")

End Select

Loop

MsgBox ("我就知道你会同意的，哈哈哈哈")

End Sub