UserForms staying functional

[wmorrison49]

Hi everyone,
I am trying to make a little game for a friend of mine. It picks a random number 1-1000 then he gets 10 chances to guess the number. After each guess, it tells him if the number is higher or lower. I have a userform that you put it your first guess, hit a button, and it tells you if the number is higher or lower. All the guess blanks and buttons are on the same UserForm. However, after you push the first button, the UserForm doesn't work anymore. How do I get it to stay functional the whole time?

Thanks in advance.

[wmorrison49]

Actually, I am having problems with the UserForm reading the data right off the UserForm too. I have attached what I have so far. Feel free to make changes or whatever you want. Thank you guys very much.

[royUK]

You don't declare Magicnumber as a variable and I can't see where you actually give MagicNumber a value. You also place the response to Guess2 in Response1. This works

Option Explicit
Dim MagicNumber As Long
Private Sub CommandButton1_Click()
    With Me
        If .Guess1.Value = MagicNumber Then
            .Response1.Text = "YOU ARE AMAZING!"
        ElseIf .Guess1.Value > MagicNumber Then
            .Response1.Text = "The number is lower"
        ElseIf .Guess1.Value < MagicNumber Then
            .Response1.Text = "The number is higher"
        End If
    End With
End Sub

Private Sub CommandButton2_Click()
    With Me
        If .Guess2 = MagicNumber Then
            .Response2.Text = "YOU ARE AMAZING!"
        ElseIf .Guess2 > MagicNumber Then
            .Response2.Text = "The number is lower"
        ElseIf .Guess2 < MagicNumber Then
            .Response2.Text = "The number is higher"
        End If
    End With
End Sub


Private Sub UserForm_Initialize()
    MagicNumber = Timer / 1000
End Sub

[wmorrison49]

The code works great, so thanks. For my own understanding though, there are a couple things I was hoping you could clear up.
1) What does Option Explicit do?
2) What does With Me do?

[royUK]

Option Explicit basically forces you to declare your variables, for a fuller explanation read this:
http://www.excel-it.com/clear_code.htm

Me is a keyword that refers in this case to the UserForm. In a workbook event or WorkSheet event it would refer to the Workbook or worksheet

[wmorrison49]

I have used Me before to hide UserForms (Me.Hide), so I have SOME familiarity with it, but not a lot. What does the With in front of it denote? Also, is there any easy way for it to prompt the user if they want to play again, and then reset everything?