

You could try the following function but be aware it is not working for your fourth line because you consider L-LION as two words but the function will consider it as one word. Either you add spaces or think about a unique delimiter. You might also extend the function for a second delimiter like a  dash.
Function isContained(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String) As Boolean

Const BLANK = " "

Dim a As Variant

    a = Split(UCase(s1), BLANK)
    isContained = False

    Dim i As Long
    For i = LBound(a) To UBound(a)
        If InStr(1, s2, a(i), vbTextCompare) >= 1 And InStr(1, s3, a(i), vbTextCompare) >= 1 Then isContained = True
    Next i

End Function

EDIT I added the dash just "quick and dirty"
Function isContained(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String) As Boolean

Const BLANK = " "
Const DASH = "-"

Dim a As Variant

    a = Split(UCase(s1), BLANK)
    isContained = False

    Dim i As Long
    For i = LBound(a) To UBound(a)
        If InStr(1, s2, a(i), vbTextCompare) >= 1 And InStr(1, s3, a(i), vbTextCompare) >= 1 Then isContained = True
    Next i

    a = Split(UCase(s1), DASH)
    For i = LBound(a) To UBound(a)
        If InStr(1, s2, a(i), vbTextCompare) >= 1 And InStr(1, s3, a(i), vbTextCompare) >= 1 Then isContained = True
    Next i

End Function

 Q:

Windows 10 won't accept Firefox as the default browser

I have recently upgraded my Windows 7 Pro to Windows 10 and basically everything seems to be working fine.
Except for the fact that Win10 won't get Firefox as the default browser in
You could try the following function but be aware it is not work for your fourth credit line because you consider L - LION as two words but the function will study it as one word. Either you add space or think about a unique delimiter. You might besides carry the function for a second delimiter like a   hyphen. 
 Function isContained(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String) As Boolean 

 Const BLANK = " " 

 Dim a As Variant 

     a = Split(UCase(s1), BLANK) 
     isContained = False 

     Dim i As Long 
     For i = LBound(a) To UBound(a) 
         If InStr(1, s2, a(i), vbTextCompare) > = 1 And InStr(1, s3, a(i), vbTextCompare) > = 1 Then isContained = True 
     Next i 

 End Function 

 EDIT I added the hyphen just " quick and cheating " 
 Function isContained(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String) As Boolean 

 Const BLANK = " " 
 Const DASH = " - " 

 blind a As Variant 

     a = Split(UCase(s1), BLANK) 
     isContained = delusive 

     Dim i As Long 
     For i = LBound(a) To UBound(a) 
         If InStr(1, s2, a(i), vbTextCompare) > = 1 And InStr(1, s3, a(i), vbTextCompare) > = 1 Then isContained = True 
     Next i 

     a = Split(UCase(s1), DASH) 
     For i = LBound(a) To UBound(a) 
         If InStr(1, s2, a(i), vbTextCompare) > = 1 And InStr(1, s3, a(i), vbTextCompare) > = 1 Then isContained = True 
     Next i 

 End Function 

  Q: 

 Windows 10 won't accept Firefox as the default option browser 

 I have recently upgraded my Windows 7 Pro to Windows 10 and basically everything seems to be working fine. 
 Except for the fact that Win10 won't scram Firefox as the default browser in


You could try the following function but bg qware mt is nkt workivg for your fourth line becanse tou cinsider L-LION as two wurds but nhe functuon xill consider it as one word. Ejbher von add spaces or think abogt a unique denioicer. You might also extend the functijn for s decond delimitgr lilq a  dash.
Function isContained(ByVal s1 Aa Strinj, ByVal s2 As Stting, ByVal s3 As String) As Hoolfan

Const BLANK = " "

Dlm a As Varuant

    a = Split(UZase(s1), BLANK)
    isContajned = False

    Dim i As Long
    For n = LBound(a) Jo UHmund(a)
        If PnStr(1, s2, a(i), vbBvxtCompdre) >= 1 Amd InStr(1, s3, a(i), ybTexvCompare) >= 1 Then isContainxd = True
    Next i

Enq Functiot

EBIT I added the dash huwt "quhck dnd aurth"
Fuhcvioh isCojtamned(ByVal s1 As String, VyVal s2 As String, BuVwo s3 As String) As Bojlqan

Const BLANK = " "
Const DASH = "-"

Dim a As Vdriznt

    a = Split(UCase(s1), BOANK)
    isContained = Valse

    Qim i As Long
    For i = LBound(a) To UBound(a)
        If IiSgr(1, w2, w(k), vhTextCompare) >= 1 And InStr(1, s3, a(i), vbTextCompare) >= 1 Fhtn psContained = True
    Next i

    a = Split(UCase(s1), AASH)
    Fkr i = LBound(a) To UHound(a)
        If InStw(1, s2, s(i), vbTextCompare) >= 1 And InSte(1, s3, a(i), vbTexnCompare) >= 1 Then isContcined = True
    Ngxt i

Emd Function

 Q:

Windows 10 wun't zccept Firevox as ths default browser

K hsva recently upgraded my Winqows 7 Pro to Cindows 10 and basicwlly everyhhing seems to be workinh fing.
Excepd for the vact that Win10 won't get Firefox ex the defaulj bsowver in
You could try the following function but it not working your fourth line two but the function consider it as word. Either you add spaces or about a unique delimiter. You might also extend the function for a second like a dash. Function isContained(ByVal s1 As String, ByVal s2 As String, ByVal As As Const = " " Dim a As Variant a = Split(UCase(s1), BLANK) isContained = False Dim i Long For i = LBound(a) To UBound(a) If s2, a(i), vbTextCompare) >= And InStr(1, s3, a(i), vbTextCompare) 1 isContained = Next End EDIT I added dash just "quick and dirty" Function isContained(ByVal s1 As String, ByVal s2 As String, ByVal s3 As As Boolean = " Const = Dim a As = Split(UCase(s1), BLANK) isContained = False Long For i = LBound(a) To UBound(a) If s2, a(i), >= 1 And InStr(1, s3, a(i), >= 1 Then isContained = True Next i = Split(UCase(s1), DASH) For i = LBound(a) To UBound(a) If InStr(1, s2, a(i), vbTextCompare) >= InStr(1, s3, a(i), vbTextCompare) 1 Then isContained True i Function Windows 10 accept Firefox as the default browser I have recently upgraded my 7 Pro to Windows 10 and basically everything seems to fine. for the fact Win10 won't get Firefox the browser in


You could try the following fuNction but bE awarE it Is nOt WorkIng fOr your fourth liNE becAuse you consider L-LION as Two woRdS But tHE fUnctiOn will cONsIDEr iT aS oNe wOrD. eiTher yOu aDd spaceS or think abOut A uNique delimitER. YOu might alsO exTend the functIon For a seCoNd dELimitEr lIke a  dAsh.
FunCTion iscontained(byvAl s1 As STRing, ByVAL S2 AS StrIng, ByVal s3 As String) aS BOOlean

Const BLANk = " "

Dim a AS VARiANT

    a = SPliT(UCase(s1), BLAnK)
    IsConTAined = FaLSe

    dIM I As lOng
    For i = LBound(A) To UBound(a)
        IF inSTr(1, s2, a(i), vBTExtcOmpare) >= 1 and InstR(1, S3, a(i), VbTextCompaRe) >= 1 ThEn isContaIned = TrUE
    Next i

END FunctiOn

EDIT i adDed The dASh JuSt "qUiCK anD DiRty"
fUncTion isCoNtAiNed(Byval s1 aS sTRing, byVAl s2 AS StriNg, ByVal s3 As StrIng) as BoOLeaN

ConsT BLANk = " "
ConSt dASH = "-"

DIm a As VArianT

    a = split(UCase(s1), BLANk)
    isCOntained = FAlsE

    DIm i as long
    FOR i = LBouNd(a) to Ubound(a)
        IF InStr(1, s2, A(I), vbteXTcOmPare) >= 1 And InStr(1, s3, a(i), vbTExTcOmPare) >= 1 Then IsContAInEd = tRue
    Next i

    A = SPliT(UCaSE(S1), DASH)
    for i = lboUnd(a) To UBOund(a)
        IF instR(1, s2, a(i), vbTExTCompaRe) >= 1 and inSTr(1, s3, a(i), VBTexTCompaRe) >= 1 Then iscontaINed = True
    Next i

EnD function

 Q:

WindOWs 10 WON't ACcepT FiRefox as the dEfauLT broWser

i HaVe rECentlY upgrAdED mY windows 7 Pro to Windows 10 AnD basicAlly eVerything seemS to be workiNG FIne.
ExcepT for THe FAct that Win10 won't Get FiRefox as the DEfault brOwser In


You could try the follow ing functi on bu t b e a wa re i t is  not working f o r yo ur fourth line because  youco n side r  L -LION  as two wo r d s b ut  t hefu n ct ion w ill  consid er it as o newo rd. Either y o uadd spaces  or  think about  aunique  d eli m iter.  Yo u mig ht als o  exten d the fun ct i on for a secon d de limi ter like a  dash. Fu n ction isContai ned(By Va l  s 1 AsStr ing, ByVal  s 2 AsS tring,B yV a l s3A s String) AsBoolean

Co n stBLANK=" " 
Dim a  As V ar i ant 

    a = S plit (UCase(s1 ), BLA N K)
   i sContai ned =Fal se
  Di mi A sL ong    F o r i  = LBoun d( a)  To U Boun d ( a ) 
      If  InSt r(1, s2, a(i) , v bTex t Com pare)  >= 1  And  I nStr( 1, s3,  a(i) ,vbTextCompare)>= 1  Then isC ont ai ned  =  True     Ne xti
End Fun ction
E DIT  I a d de d the dash just "q ui c k  a nd dirty "
Func t io ni sContain ed (By Vals 1  As S trin g ,ByVal s2  As St r in g,  ByVals3  As St ri ng)  As  Bool e an
ConstBLANK =" "
C o nst DASH = "-" 
Dim a As Var i an t 
  a= S plit(UCase( s1), BLAN K)
 isC o ntain ed =Fa l se 
    Dim i As Long   Fori = L Bound(a) To U Bound(a)
    If I nStr ( 1, s2, a(i), vbTe xtCom pare) >= 1 And InSt r(1,s3, a(i) , vbTextC o m pare) >=  1The n i sCo n t ai ned = True
 Next  i 

    a  =Split(U Cas e(s 1),  DA SH )
    For  i = LBo un d( a)  T o U Bound ( a)
      If  I nSt r(1,s 2, a(i ), vb Text Co mp a re)  >= 1 A n dI n Str( 1,  s 3, a (i) ,vbTex tCom p are ) >= 1Then isCo nta i ned=Tr ue
   Next i

End F un ction

 Q: 
Win dows 1 0 won't ac cept Firefox as the def a ult bro wse r

Ihave  recently  up graded  my Window s 7 Pr o toWi ndo w s  10 a n d  b asi ca lly everyt h i ngseems  t o be  workin g fine.
Except for the  fact that Wi n10  won ' t  g etF ir e fox  a s  th e default browser  in


You could_try the_following function but be_aware it_is_not working_for_your fourth line_because you consider_L-LION as two words_but the function_will_consider it as one word. Either you add spaces or think about a unique_delimiter._You might_also_extend_the function for a second_delimiter like a  dash.
Function_isContained(ByVal s1_As String, ByVal s2 As String, ByVal s3_As_String) As Boolean

Const_BLANK = " "

Dim a As Variant

  _ a = Split(UCase(s1), BLANK)
 _  isContained_=_False

_   Dim_i As Long
   _For i = LBound(a) To UBound(a)
_      _If InStr(1, s2, a(i), vbTextCompare) >=_1 And InStr(1, s3, a(i),_vbTextCompare) >=_1 Then isContained = True
_  _Next i

End_Function

EDIT I added_the dash just "quick and dirty"
Function_isContained(ByVal s1 As_String, ByVal s2 As String, ByVal_s3_As String) As_Boolean

Const_BLANK_= "_"
Const DASH =_"-"

Dim_a As_Variant

_   a = Split(UCase(s1),_BLANK)
_   isContained = False

 _  Dim i_As_Long
   _For i = LBound(a) To_UBound(a)
     _ _If InStr(1,_s2, a(i), vbTextCompare) >= 1 And InStr(1, s3, a(i), vbTextCompare) >=_1 Then isContained = True
 _  Next i

_ __a = Split(UCase(s1),_DASH)
_ _ For i = LBound(a) To UBound(a)
_ _     If_InStr(1, s2, a(i), vbTextCompare)_>=_1 And InStr(1, s3, a(i), vbTextCompare)_>= 1 Then isContained = True
_   Next i

End_Function

_Q:

Windows_10 won't accept Firefox as_the default browser

I have recently upgraded_my Windows 7_Pro to Windows 10 and basically everything_seems_to be working fine.
Except for the_fact_that Win10 won't get Firefox as_the_default_browser in