User -defined type not defined how to solve?

[anilg0001]

i got an error while running the code
the error is
User -defined type not defined

/*yellowcolor shows at here
Sub M_snb()
With New WinHttpRequest*/

Sub M_snb() 
    With New WinHttpRequest 
        .Open "GET", "http://www.suggestadoctor.com/doctors_list_al_310_alabama_urology.htm", False 
        .Send 
         
        For Each it In Filter(Split(Replace(Replace(.ResponseText, "<a", "~<a"), "</a>", "~"), "~"), "'doctor_") 
            c01="" 
            .Open "Get", "http://www.suggestadoctor.com/" & Split(it, "'")(1), False 
            .Send 
            st = Split(.ResponseText, vbLf) 
            For j = 1 To 7 
                c01 = c01 & vbLf & Filter(st, Choose(j, "City :", "ZIP :", "Phone #", "Fax #", "Gender", "Medical School", "Graduation Year"))(0) 
            Next 
        Next 
    End With 
End Sub

[TMS]

Set a reference to Microsoft WinHTTP Services. You can do that by clicking on menu tools | references.


Regards, TMS

[anilg0001]

Thanks for ur help i set Microsoft WinHTTP Services but when i run after that it get error at For statement

variable not defined

For Each it In Filter

[JosephP]

add a new line to the start of the routine

dim it, st, c01, j

[anilg0001]

thanks Mr. JosephP
While i corrected that i got another error msg like
Run-Time Error '9'
Subscript our of range

[JosephP]

cross-post http://vbaexpress.com/forum/showthread.php?t=46148