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