Also, your error routine will run every single solitary time you run your code because you are not existing your routine if there is no error
Code:
On Error GoTo Skip 'do not need a colon here

    AtmsQualsLength = WebBrowser1.Document.getelementbyid("tblQuals").rows.length - 1

Exit Sub 'add this
Skip:
If Err.Number = 91 Then
    MsgBox stblBadgeNumber(i) & " is not found in ATMS!"
    Err.Clear
End If