Подскажите пожалуйста!
Делаю отладку следующего кода:
Open strFile For Input Access Read As hFile

'PosCol = True
n = 1
Do Until EOF(hFile)
Line Input #hFile, strInput
intI = intI + 1
ReDim Preserve myArray(n) As Variant
myArray(n) = strInput
If myArray(n - 1) = "Груши:" And myArray(n) = "Яблоки:" Then
Cells(st_file, intI + 2) = fnExtractData(strInput, True)
Else
Cells(st_file, intI + 1) = fnExtractData(strInput, True)
Cells(st_file + 5, intI + 1) = myArray(n)
End If
n = n + 1
Loop
intI = 0
Close hFile


и условие If myArray(n - 1) = "Груши:" And myArray(n) = "Яблоки:" Никогда не выполняется.
Хотя в Wathes Значения ячеек массива совпадают! Как такое может быть?
Мне необходимо чтобы просто значения в таблицу выводились друг под другом, а то получается есть на следующей строке после "Груши:" Ничего не введено (То есть сразу идут "Яблоки"), то происходит смещение расположения значений ячеек!

Помогите пожалуйста!!!
Спасибо

Все спасибо - разобрался!