Scoreboard help!

SO i am having some problems with the scoreboard. When the user hits the button to make the score count up, it goes up 1. Then when you hit it again, it just stays at 1 on the label.

Dim a as integer = 0
Label1.Text = CType(A + 1, String)

There's what i have