VBA User Form ja CheckBoxit

Option Explicit
Dim valitut_maat As Long
Private Sub UserForm_Initialize()
   valitut_maat = 0
End Sub
Private Sub CheckBox1_Change()
   If CheckBox1.Value = True Then
      valitut_maat = valitut_maat 1
   Else
      valitut_maat = valitut_maat - 1
   End If
   muutateksti
End Sub
Private Sub CheckBox2_Change()
   If CheckBox2.Value = True Then
      valitut_maat = valitut_maat 2
   Else
      valitut_maat = valitut_maat - 2
   End If
   muutateksti
End Sub
Private Sub CheckBox3_Change()
   If CheckBox3.Value = True Then
      valitut_maat = valitut_maat 4
   Else
      valitut_maat = valitut_maat - 4
   End If
   muutateksti
End Sub
Sub muutateksti()
   Dim s As String
   If valitut_maat And 1 Then
      s = "Suomi, Ruotsi, Viro"
      If valitut_maat > 1 Then
         s = s ", "
      End If
   End If
   If valitut_maat And 2 Then
      s = s "Kiina, Indonesia"
      If valitut_maat > 3 Then
         s = s ", "
      End If
   End If
   If valitut_maat And 4 Then
      s = s "Sambia, Egypti"
   End If
   Label1.Caption = s
End Sub