Проблема сравнения строк в VBA для Excel

Question

Я пытаюсь создать макрос Excel для разбора xls на xml, и в некоторых частях моего кода мне нужно сравнивать строки, и я не знаю, почему он не работает.Это код:

Set newAtributte = oXMLFile.createAttribute("display")
            newAtributte.Value = Cells(i, 2)
            Debug.Print TypeName(newAtribute.Value)
            Debug.Print newAtribute.Value
            Debug.Print TypeName(Cells(i, 2).Value)
            Debug.Print Cells(i, 2).Value
            Debug.Print TypeName("Integer")
            'If Cells(i, 2).Value = "String" Then newField.Text = StringID
            If StrComp(Cells(i, 2).Value, "Integer") = 0 Then Debug.Print "He entrado en el if"
            'If Cells(i, 2).Value = "Floating point number" Then newField.Text = FloatingPointNumberID
            'If Cells(i, 2).Value = "Boolean" Then newField.Text = BooleanID

А это выход отладки:

String
Integer 
String
Integer 

Я не знаю, почему он не идет внутрь if.