Por primera vez estoy deacuerdo con -Freeze-
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú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