Счетчик VB, получить данные из ячейки

Question

У меня проблема в том, что в этой строке я не получаю правильное значение

<pre>strASCX = strASCX & "<br><font color=red> " & Sheets(1).Cells(i, j).Value & " </font>"<code>

это должно выбрать правильную дату (правую ячейку) в моем календаре Excel, но это не так.Вот часть изображения моего календаря введите описание изображения здесь Где находится слово «значение» со знаком «X» в ячейке рядом с ним.Я должен получить значение из этой клетки.Например (смотри цену) для ячейки B5 я должен получить "value3"

    For i = 3 To 33
    '---Rows---

    For j = 1 To 12
        '---Columns---

        For leto = year(Date) - 1 To year(Date) + 1
            mesec = (j * 3) - 1
            strASCX = strASCX & "if (e.Day.Date.Year == " & leto & "){if (e.Day.Date.Month == " & j & "){if (e.Day.Date.Day ==" & i - 2 & "){aLabel.Text ="""

                    If Sheets(1).Cells(2, mesec + 1) = leto Then
                         If Trim(Sheets(1).Cells(i, mesec)) <> vbNullString Then
                            status = UCase(Trim(Sheets(1).Cells(i, mesec + 1)))
                            Select Case status
                                Case Is = "X"
                                    strASCX = strASCX & "<br><font color=red> " & Sheets(1).Cells(i, j).Value & " </font>"
                            End Select
                         End If
                    End If

            strASCX = strASCX & """;" & "aLabel.ForeColor = System.Drawing.ColorTranslator.FromHtml(""#ccccc2""); e.Cell.Controls.Add(aLabel); }} }" & vbNewLine
        Next leto
    Next j
Next i