Runtime error 13 - type mismatch - VBA

Private Sub CommandButton1_Click()
  Dim k1 As String
   Dim k2 As String
 Dim k3 As String
  Dim s2 As Integer
  Dim s1 As Integer
     k1 = TextBox268.Text = "г" + TextBox269.Text = "р" + TextBox270.Text = "а" + TextBox271.Text = "д" + TextBox273.Text = "и" + TextBox272.Text = "е" + TextBox275.Text = "н" + TextBox274.Text = "т"
      k2 = TextBox291.Text = "б" + TextBox292.Text = "а" + TextBox293.Text = "л" + TextBox294.Text = "а" + TextBox295.Text = "н" + TextBox296.Text = "с" + TextBox297.Text = "а"
     k3 = TextBox333.Text = "и" + TextBox332.Text = "з" + TextBox334.Text = "о" + TextBox335.Text = "т" + TextBox336.Text = "е" + TextBox337.Text = "р" + TextBox339.Text = "м" + TextBox338.Text = "а"
     s1 = 0
     s2 = 0
     If k1 = "Градиент" Or k1 = "градиент" Or k1 = "ГРАДИЕНТ" Then
     s1 = s1 + 1
     End If
     
     
 If k2 = "Баланса" Or k2 = "баланса" Or k2 = "БАЛАНСА" Then
 s1 = s1 + 1
   End If
If k3 = "Изотерма" Or k3 = "изотерма" Or k3 = "ИЗОТЕРМА" Then
s1 = s1 + 1
     End If
If TextBox240.Text = "Газ" Or TextBox240.Text = "газ" Or TextBox240.Text = "ГАЗ" Then
s2 = 1
     End If
     If s1 = 3 And s2 = 1 Then
     Label1.Caption = "Молодец! Все отгадано правильно."
     
End If
     If s1 = 3 And s2 = 0 Then
     Label1.Caption = "Кроссворд отгадан правильно. Ключевое слова введено  неверно"
     End If
     If s1 < 3 And s2 = 1 Then
     Label1.Caption = " Кроссворд отгадан не правильно. Ключевое слова введено  верно "
     End If
If s1 < 3 And s2 = 0 Then
     Label1.Caption = " Кроссворд отгадан не правильно. Ключевое слова введено  неверно "
     End If
  CommandButton1.Enabled = False
 
End Sub

k1 = TextBox268.Text = "г" + TextBox269.Text = "р" + TextBox270.Text = "а" + TextBox271.Text = "д" + TextBox273.Text = "и" + TextBox272.Text = "е" + TextBox275.Text = "н" + TextBox274.Text = "т"

k1 = TextBox268.Text & TextBox269.Text & TextBox270.Text & TextBox271.Text & TextBox273.Text.....

If TextBox240.Text = "Газ" Or TextBox240.Text = "газ" Or TextBox240.Text = "ГАЗ" Then
s2 = 1
     End If

If LCase(TextBox240.Text) = "газ" Then s2 = 1