VBA code doesn't remember data

I have a simple userform where a variable named X is set, depending on a combobox, as seen below..

Private Sub ComboBox1_Change()
If ComboBox1 = "Order" Then
    X = "http://-- website address --""
End If
MsgBox X
End Sub

it's not the whole code but just to see what is needed. When a user selects 'Order' from the combobox, variable X should be a specific website.
It works because a messagebox is shown with the correct website.

Now I also have a Button in the userform and when this button is pressed, it should open the website (X) in a new window, but this doesn't work...
the code for the button is:

Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink X, NewWindow:=True 
End Sub

However, the variable X is no longer filled with the website address !

I think it's because I used the End Sub and start a new Sub but I'm not sure how to do the trick so the website opens when the button is pressed

hi minifreak, option:

Sub CommandButton1_Click()
If ComboBox1 = "Order" Then ActiveWorkbook.FollowHyperlink "http://-- website address --""", NewWindow:=True
End Sub

@watersev, Your option worked, I tried it before but I wanted to set the variable earlier when and I knew it had to be something with Dim As...
@ AlphaFrog, I put the Dim As function like you mentioned at the top of the code and now it worked !!!
Earlier I had the same line of code but inside the Private Sub ...... End Sub and this didn't work.
Now I'm just glad that I can continue with the code