digo yo i cual es el problema con el control Inet.
no nesesitas los RichTextBox, aparte que en lo personal me cae mal ese Control
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", vbOKOnly, ""
Else
MsgBox "Pon un Url valido", vbCritical, "Extorcionador"
End If
End Sub
asta supongo que ay mayor compatibilidad que con el winsock casi no ay muchas personas que tengan ese control
digo personas ya saben como xD