Получение данных из рабочей книги с ошибкой компилятора

Question

Ошибка компилятора: конец не имеет с.Я знаю, что это неправильно, и в моем коде есть что-то, в котором я неправильно называю это, что портит его, но я не могу его найти.Я просто пытаюсь собрать информацию с моего листа1, чтобы потом использовать ее.

With ThisWorkbook.Sheets("Sheet1")
    While (Counter <= 300) 
            Pcounter = .Cells(ACBoxCounter, 2)
        If (Pcounter <> "") Then
            ACounter = ACounter + 1
        End If
            ACBCounter = ACBCounter + 30
    Wend

    While (OverallACounter < ACounter)
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Charset = "iso-8859-1"
    objStream.Open


    ExampleString = .Cells(Row2Counter + 22, 3)
    ChooseM = Split(ExampleString, "-")(1)
    If (ChooseM = "8") 
      M = "II"
      P = 97
      Label = .Cells(Row2Counter, 2)
    ElseIf (ChooseM = "13") Then
      Model = "A II"
      P = 10
      Label = "A6_" & .Cells(Row2Counter, 2)
    ElseIf (ChooseM = "19") Then
      M = "AC1I"
      P = 56
      Label = "A9_" & .Cells(Row2Counter, 2)
    End If
    OverallD = 0
    Overall= 0
    OverallB = 0
    ChooseBoxType = Split(ExampleString, "-")(2)
    If ((StrComp(ChooseB, "1") = 0) Or (StrComp(ChooseB, "1M") = 0)) Then
      BoxInputT= "1 Phase"
    ElseIf ((StrComp(ChooseB, "2") = 0) Or (StrComp(ChooseB, "2M") = 0))  Then
      BoxInput= "2"
    ElseIf ((StrComp(ChooseB ,"3") = 0) Or (StrComp(ChooseBo, "3M") = 0)) Then
      BoxInput= "3"
    End If
 objStream.WriteText ("  <" & .Cells(Row2Counter, 2).Text & ">" & vbLf)
Wend
End With

Ошибка компилятора: конец не имеет