ник: ДрЮня
не совсем понял вопрос.
Но Вам могут пригодится следующие функции:
Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])
Member of VBA.Strings
Returns the position of the first occurrence of one string within another
Function UCase(String)
Member of VBA.Strings
Returns the specified string, converted to uppercase
Function StrComp(String1, String2, [Compare As VbCompareMethod = vbBinaryCompare])
Member of VBA.Strings
Returns the result of a string comparison
Function Trim(String)
Member of VBA.Strings
Returns a copy of a string without leading and trailing spaces