Para referência:
o código IsItGood () era:
Public Function IsItGood(aWord As Variant) As Boolean
Dim s As String
s = "|"
tmp = s & aWord & s
patern = ""
For i = 1 To 100
patern = patern & s & i
Next i
For i = 1 To 10
patern = patern & s & "C" & i
Next i
patern = patern & s & "merge|complete framed|width|border left|border right" & s
If InStr(1, patern, tmp) > 0 Then
IsItGood = True
Else
IsItGood = False
End If
End Function
Para torná-lo "cego por vírgulas", altere:
tmp = s & aWord & s
para:
tmp = Replace(s & aWord & s, ",", "")
Quer existam ou não vírgulas, você ainda precisa de um caractere de espaço entre as palavras na frase de entrada.