Jasper Yu says to YSITD
Label1.Text = Int(Label1.Text) + 1