how to change a label caption?

Question

I've been trying to make the caption of a label change from 0-10 when clicking in a button so each time that I click one of the buttons it adds 1 all the way to 10 and another that does the oposite (minus 1 until you reach 0)
I've tried this so far but it doesn't seem to work.

Private Sub FRosaU_Click()
For CuboRosa.Caption = Val(CuboRosa.Caption) + 1 To CuboRosa.Caption = 10
Next
End Sub
Private Sub FRosaD_Click()
For CuboRosa.Caption = Val(CuboRosa.Caption) - 1 To CuboRosa.Caption = 0
Next
End Sub

I've also tried this

Private Sub FVU_Click()
Dim nvu As Integer
For CuboVerde.Caption = Val(nvu) + 1 To Val(nvu) = 10
Next
End Sub

Answer 1

Like this:

Private Sub FRosaU_Click()
    If Val(VuboRosa.Caption) < 10 Then
        CuboRosa.Caption = Val(CuboRosa.Caption) + 1
    End If
End Sub

Private Sub FRosaD_Click()
    If Val(VuboRosa.Caption) > 0 Then
        CuboRosa.Caption = Val(CuboRosa.Caption) - 1
    End If
End Sub

Answer 2

Hi @ALMUDENA PÉREZ DE LA VEGA ,
Thanks for "Accept Answer" answer of HansV, I also suggest you upvote it. Other partners who read the forums with the same issue can get more information from the correct result.

Thank you.
:)