What I am trying to do is collect information from the Notre Dame football archive and put it into an excel sheet. This program was working fine for a while until suddenly the initial date look up started displaying a different string of html other than a date at inconsistent times. Please forgive the confusion of the code. I kinda have my own ways of going about things.(also, the code is only the part of the code designed to find the date of the first game of each season)

Sub test()
On Error Resume Next
Dim nng As String
Dim dte As String
Dim count As Integer
Dim count2 As Integer
Dim use As String
Dim use2 As String
Dim chart(1 To 5, 0 To 14) As String
Dim cll As String
Dim clk As String
Dim ans As String
Dim yre As Integer
count2 = 0
count = 0
cll = ActiveCell.Row
clk = ActiveCell.Column
yre = InputBox("Year")
If IsNull(yre) = True Then End
a:
'get date
    Set ie = CreateObject("InternetExplorer.Application")
   'Do Until ie.readystate = readystate_complete
      '  DoEvents
   ' Loop
    Application.Wait Now + TimeValue("00:00:01")
    ie.navigate ("http://www.und.com/sports/m-footbl/archive/nd-m-footbl-sched-" & yre & ".html")
    Application.Wait Now + TimeValue("00:00:02")
    nng = ie.document.body.innerHTML
    Sortd = Split(nng, "</td>")
    chart(5, 7) = Mid(Sortd(21), InStr(Sortd(21), "<td"))
    chart(5, 7) = Replace(chart(5, 7), "<td class=", "")
    chart(5, 7) = Replace(chart(5, 7), "row-text", "")
    chart(5, 7) = Replace(chart(5, 7), ">", "")
    chart(5, 7) = Replace(chart(5, 7), Chr(34), "")
    dte = chart(5, 7)
    MsgBox (dte)
    'If IsDate(dte) = False Then
        'GoTo a
       ' count = count + 1
       ' If count > 10 Then GoTo e
   ' End If
    ie.Quit
    End