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