Mach es so: Label1.Caption = Cint(Label1.Caption) + 1