Dim blank As String
Dim Response(6) As String
Dim Switch As Boolean

Private Sub Form_Load()
Randomize
End Sub

Private Sub Command1_Click()
    Response(1) = "My sources say Yes"
    Response(2) = "I think you already know the answer"
    Response(3) = "Most unlikely"
    Response(4) = "The answer is clouded"
    Response(5) = "Ask again later"
    Response(6) = "Am i your slave or something, STOP asking me questions!!"
    Switch = False
    blank = InputBox("what is your question", "question")
        If blank = "" Then
        Switch = False
            If Switch = False Then
                Print MsgBox("How am i supposed to answer when you don't give me a question!")
                Exit Sub
            End If
        End If
    MsgBox Response(Int(Rnd * 6 + 1))
End Sub

    Source: geocities.com/matkins70