If/Then/Else Help

Sub PriceIncreasebtn_Click
     Dim Amt As Int     
     Amt = PriceLabel.Text +1
     PriceLabel.Text = Amt
End Sub

Sub PriceDecreasebtn_Click
     Dim Amt As Int     
     Amt = PriceLabel.Text -1
     PriceLabel.Text = Amt
End Sub

'Activity module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
End Sub
Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim PriceLabel As Label
   Dim PriceIncreasebtn As Button
   Dim PriceDecreasebtn As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   'Activity.LoadLayout("Layout1")
   Activity.LoadLayout("main")
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub PriceChange_Click
   Dim btn As Button, price As Int 
   btn = Sender
   price = PriceLabel.Text 
   If btn.Tag ="Increase" Then 
      price = price + 1
   Else
      price = price - 1
   End If
   PriceLabel.Text = price
End Sub

Sub Price_Click
   Dim btn As Button, Price As Int
   btn = Sender
   If btn.Tag ="Increase" Then
      Price = Price + 1
   Else
      Price = Price - 1
   End If
   PriceLabel.Text = Price
   If Price < 0 Then Price = 0
   If Price > 50 Then Price = 50
End Sub
Sub Pounds_Click
   Dim btn As Button, Pounds As Int
   btn = Sender
   If btn.Tag ="Increase" Then
      Pounds = Pounds + 1
   Else
      Pounds = Pounds - 1
   End If
   PoundsLabel.Text = Pounds   
   If Pounds < 0 Then Pounds = 0
   If Pounds > 50 Then Pounds = 50 
End Sub

'Activity module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
End Sub
Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim PriceLabel As Label
   Dim PriceIncreasebtn As Button
   Dim PriceDecreasebtn As Button
   Dim ButtonDown As Boolean 
   Dim Timer1 As Timer
   Dim ButtonPressed As String 
End Sub
Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   'Activity.LoadLayout("Layout1")
   Activity.LoadLayout("main")
   Timer1.Initialize("Timer1",1000)
   Timer1.Enabled = True
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Timer1_Tick
   Dim price As Int 
   price = PriceLabel.Text 
   If ButtonDown Then 
      If ButtonPressed ="Increase" Then 
         price = price + 1
      Else
         price = price - 1
      End If
      PriceLabel.Text = price
   End If
End Sub

Sub PriceChange_Down
   Dim btn As Button
   btn = Sender
   ButtonDown = True
   ButtonPressed = btn.Tag 
End Sub
Sub PriceChange_Up
   ButtonDown = False
End Sub

Sub Globals
    '
    Dim ButtonPressed As Button 
    Dim LabelToChange As Label
End Sub

Sub Timer1_Tick
    Dim val As Int 

    val = LabelToChange.Text

    If ButtonPressed.Text = "+" Then
        val = val + 1
    Else
        val = val - 1
    End If

    Select ButtonPressed.Tag
    Case "Price"
        val = Max(0, val)
    Case "Pounds"
        val = Max(0, val)
        val = Min(50, val)
    End Select

    LabelToChange.Text = val
End Sub

Sub Change_Down
    ButtonPressed = Sender
    Timer1.Enabled = True

    Select ButtonPressed.Tag
    Case "Price"
        LabelToChange = PriceLabel
    Case "Pounds"
        LabelToChange = PoundsLabel
    End Select

    Timer1_Tick
End Sub

Sub Change_Up
    Timer1.Enabled = False
End Sub