Dim a As Integer = 1
On a Goto label1, label2