토렌트알지 검색받아오기!

Dim winhttp As New winhttp.WinHttpRequest

Private Sub Command1_Click()
    List1.Clear
    
    If Text1.Text = "" Then: Exit Sub

    With winhttp
        .Open "GET", "http://www.torrentrg.com/bbs/board.php?bo_table=torrent_ani&sca=&sfl=wr_subject&stx=" & Change(Text1) & "&sop=and&x=22&y=2"
        .Send
        
        Dim a, b, c, i, tmp
        tmp = StrConv(.ResponseBody, vbUnicode)
        
        If InStr(1, tmp, "게시물이 없습니다.") Then
            MsgBox "해당 파일은 존재하지 않습니다."
            Text1 = ""
            Text1.SetFocus
        Else
            c = Split(Split(tmp, "mw_basic_list_num>")(1), "")(0)
            For i = 1 To c
                a = Split(tmp, "w_basic_list_num>" & i)(1)
                b = Split(Split(a, "")(1), "")(0)
                'a = Split(Split(tmp, "")(1), " ", "")
                
                List1.AddItem b
            Next i
        End If
        
    End With
End Sub

Public Function Change(Str As String) As String
For i = 1 To Len(Str)
    If Len(Hex(Asc(Mid$(Str, i, 1)))) = 4 Then
        Change = Change & "%" & Mid$(Hex(Asc(Mid$(Str, i, 1))), 1, 2) & "%" & Mid$(Hex(Asc(Mid$(Str, i, 1))), 3, 2)
        Change = Replace(Change, "%20", "+")
    Else
        Change = Change & "%" & Hex(Asc(Mid$(Str, i, 1)))
        Change = Replace(Change, "%20", "+")
    End If
Next
End Function

토렌트알지 사이트에서 구해오는 자료로서, 아직 제대로 완성되지 않는 소스라고 하네요^0^ 참고만하시길 바랍니다!