Макрос для проверки почтовых отправлений на сайте Почты России

Sub post()
   Dim oIE As Object, sHTML As String, tmp, i As Long, j As Long
   Application.ScreenUpdating = False
   Set oIE = CreateObject("InternetExplorer.Application")
   oIE.Visible = 0
   oIE.Navigate ("http://info.russianpost.ru/servlet/post_item")
   Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop
   For j = 6 To Cells(Rows.Count, 2).End(xlUp).Row
       oIE.Document.forms(0).elements("barCode").Value = Cells(j, 2).Value
       oIE.Document.forms(0).elements("barCodeSearchBtn").Click
       Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop
       sHTML = oIE.Document.body.innerhtml
       tmp = Split(sHTML, "<")
       For i = 0 To UBound(tmp)
           If InStr(tmp(i), "Приём") > 0 Then
               Cells(j, 3) = Format(Split(tmp(i + 2), ">")(1), "DD.MM.YYYY")
               Cells(j, 4) = Split((Split(tmp(i + 6), ">")(1)), " ")(0)
           End If
           If InStr(tmp(i), "Вручение") > 0 Then
               Cells(j, 5) = Format(Split(tmp(i + 2), ">")(1), "DD.MM.YYYY")
               Cells(j, 6) = Split(tmp(i + 4), ">")(1)
               Cells(j, 7) = Split(tmp(i + 10), ">")(1)
               Exit For
           End If
       Next
   Next
   Set oIE = Nothing
   Application.ScreenUpdating = True
End Sub