Til Bak

Du har allerede hjulpet mig med den her makro.
Jeg har fundet denne makro som søger efter 3 ord i samme række og hvis de findes skrives der i listbox. Jeg vil gerne udvide denne makro med en optionknap hvor man kan vælge  dansk eller engelsk.
her er macro:
Private Sub CommandButton1_Click()

  Dim sOne, sOneItem
  With UserForm1
      '******
      If .OptionButton1 Then sOne = Array("Horse")
      If .OptionButton2 Then sOne = Array("Pig")
      If .OptionButton5 Then sOne = Array("Horse", "Pig")
      '******
      If .OptionButton3 Then
        sTwo = "Dansk"
      Else
        sTwo = "Engelsk"
      End If
      sThree = .TextBox1.Text
  End With
 
  '******
  For Each sOneItem In sOne
  '******
  'MsgBox sOneItem
      With Worksheets(1).Cells
        Set c = .Find(sOneItem, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
              If Application.CountIf(c.EntireRow, "*" & sTwo & "*") And _
                  Application.CountIf(c.EntireRow, "*" & sThree & "*") Then
                  UserForm1.ListBox1.AddItem c.Value
                  UserForm1.ListBox1.List( _
                        UserForm1.ListBox1.ListCount - 1, 1) _
                        = c.Offset(0, 2).Value
                  UserForm1.ListBox1.List( _
                        UserForm1.ListBox1.ListCount - 1, 2) _
                        = c.Offset(0, 5).Value
              End If
              Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
      End With
  '******
  Next
  '******
End Sub