help with a problem with a code

Sub Button2_Click
   label1.Text = label1.Text + 1 
   CheckScore
End Sub
Sub Button1_Click
    label1.Text = label1.Text - 1
   CheckScore
End Sub
Sub CheckScore
   If label1.Text = "-4.0" Then
        Label2.Text = "lost" 
     End If
End Sub

label1.Text = label1.Text - 1
CheckScore  'here

#Region Module Attributes
   #FullScreen: False
   #IncludeTitle: True
   #ApplicationLabel: B4A Example
   #VersionCode: 1
   #VersionName: 
   #SupportedOrientations: unspecified
   #CanInstallToExternalStorage: False
#End Region

'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 Label1 As Label
   Dim Label2 As Label
'   Dim Timer1 As Timer
   Dim Button1 As Button
   Dim Button2 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("dada")
'Timer1.Initialize("Timer1",1000)
'Timer1.Enabled = True

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button2_Click
   Label1.Text = Label1.Text + 1 
   CheckScore
End Sub
Sub Button1_Click
    Label1.Text = Label1.Text - 1
   CheckScore
End Sub
Sub CheckScore
   Log(Label1.Text)
   If Label1.Text = "-4.0" Then
        Label2.Text = "lost" 
     End If
End Sub

If Label1.Text = "312" Then Label1.Text = 312/6

 Button2_Click
    Label2.Text = Label2.Text - 1 
    CheckScore
End Sub
Sub Button1_Click
    Label2.Text = Label2.Text - 1
    CheckScore
End Sub
Sub CheckScore
     If Label2.Text = 312 Then Label1.Text = Label1.Text / 6
     If Label2.Text = 260 Then Label1.Text = Label1.Text / 5
     If Label2.Text = 208 Then Label1.Text = Label1.Text / 4
End Sub