Aqui esta este codigo:
Dim strUrl As String
strUrl = text1.Text 'Aqui especificas la direccion
If Len(strUrl) > 11 Then
Screen.MousePointer = 13
text2.Text = Inet1.OpenURL(strUrl) 'en el text2 estara el codigo ponlo multiline para que se vea todo
Este codigo puedes mandarlo a otro form o puedes guardarlo como archivo de texto para luego abrirlo...
