Why does this not work...? can someone tell me the correct way to do this?

Private Sub Command1_Click()
If a = 1 Then
MsgBox "Do you wish to restart?", vbYesNo, "AHH!"
If vbYes Then
GoRestart
Else
End If
Else
End
End If
End Sub

The msgBox always does both statments... I have also tried using "if vbNo Then" but still does the same thing... Is it because I have all the if statements between each other?