Don't explicitly kill your app. It will prevent push messages from being received.
Add this sub:
Private Sub Application_PushToken (Success As Boolean, Token() As Byte)
Log("PushToken: " & Success)
Log(LastException)
End Sub
Is the token received successfully?