Function check(ByVal num As Integer)
Label1.Text = Label1.Text + num.ToString
Return 1
End Function
Вот попробуй...