Agregar :
2 Controles TextBox   (txtURL,txtCode)
1 Command Button     (cmdExt)
1 Inet                        (intCon)

Option Explicit
Dim Url As String
Private Sub cmdExt_Click()
    Url = txtURL.Text
    If Len(Url) > 11 Then
        txtCode.Text = intCon.OpenURL(Url)
        MsgBox "ya esta el code we",vbInformation, "Extorcionador"
    Else
        MsgBox "Pon un Url valido", vbCritical, "Extorcionador"
    End If
End Sub
 

Ejemplo


No lo saca muy ordenadito pero al pareser lo saca todo 

Habria una manera de sacar todo completo...

Eso es lo que si tiene que hacer....

Me explico para poner http://www.web.com
y que salga:

-http://www.web.com/index.php
-http://www.web.com/descargas.php
-http://www.web.com/Salir.php xD

Creo que si se puede porque hace tiempo me descargue un programa para bajar TODO de una web... Claro no se q lenguaje era asi que por favor aclaren esa duda... (Los que quieran jajaja)

sip pero no se podria hacer en Visual Basic lo digo por la denigracion en contra del VB a lo mejor y es verdad ^^!