Advanceret Select Case

Jeg har en række knapper der ændre nogle tal.
Jeg har så forskellige kreterier der sætter grænser for hvad knappen må gøre.....

Som jeg umiddelbart ser det skal jeg lave min select case for hver knap og en if i hver case eller også noget med if i if, men mener selv at den løsning vil sløve mit program......

Så nu er mit spørgsmål så om jeg kan lave en case et sted i mit program, som ligger et sted og så sætter variabler og jeg så sætter min if op i hver knap som så chekker variablen ?

Min nuværende løsning med case:

Private Sub Command1_Click()
Select Case
  Case 0
      If værdi >= 10 then
          Msgbox("Info")
      Else:
          Text1.Text = CInt(Text1.Text) + 1
          Text2.Text = CInt(Text2.Text) - 1
      End If
  Case 1
      If værdi >= 12 then
          Msgbox("Info")
      Else:
          Text1.Text = CInt(Text1.Text) + 1
          Text2.Text = CInt(Text2.Text) - 1
      End If
  .
  .
  .
  Case 49
      If værdi >= 48 then
          Msgbox("Info")
      Else:
          Text1.Text = CInt(Text1.Text) + 1
          Text2.Text = CInt(Text2.Text) - 1
      End If
End Select

Og den skal så ind i hver knap....

Det jeg tænkte:

Select Case
  Case 0
      var1 = 10
  Case 1
      var1 = 12
  .
  .
  .
  Case 49
      var1 = 48
End Select

Og så i knappen:

Private Sub Command1_Click()
If værdi >= var1 then
  Msgbox("Info")
Else:
  Text1.Text = CInt(Text1.Text) + 1
  Text2.Text = CInt(Text2.Text) - 1
End If
End Sub

Ved godt jeg kunne ligge den i en sub eller funktion, men så skal casen kørers hver gang anyways, bare koden vil blive mere overskuelig.......

Håber det er forståeligt ellers spørg løs :)

/Tubber