Estoy buskando por todo google y no ekuentro nada de nada ( rekursosvb,el buska etc)
quiero hacer lo siguiente, no digo que me lo digais, konke me guieis me sobre :

Un ejemplo la pagina www.mipagina.com/tex.txt ahora en ese arhicvos de texto subido en mi pagina

Pongo ahi por ejemplo Msgbox = "hola"
Ahora kada vez que uno abre mi programa le sale lo que yo aya puesto en ese archivos de texto, si enemdio  puedo colocar cualquier cosa ( cualquier cosa que no necesite que yo kree un boton ni nada, sino como msxbox y modificar un textobx)


Gracias por toda la ayuda ^^

No escribas como niño engreido, escribe correctamente.
Expresate mejor, tube que leer tu post como 4 veces para poder entender que es lo que necesitabas.
Si no entiendes para que son esas apis, busca en internet, lo dudo que no lo encuentres.


Aqui esta el codigo:

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
 
Private Function Texto() As String
 
Dim hOpen As Long, hFile As Long, sBuffer As String * 36, ret As Long
    hOpen = InternetOpen("test", 1, vbNullString, vbNullString, 0)
    hFile = InternetOpenUrl(hOpen, "http://mipagina.com/texto.txt", vbNullString, ByVal 0&, &H80000000, ByVal 0&)
    InternetReadFile hFile, sBuffer, 36, ret
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
Texto = sBuffer
End Function
 
Private Sub Form_Load()
MsgBox Texto
End Sub

Nada duda solucionada sorry,pueden cerrar

y si quiero modificar el codigo de un commandbuton enemdio de este codigo

Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
 
Private Sub Form_Load()
MsgBox Texto
End Sub
 

Pongo esto?

Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
 
Private Sub Command1_Click()
Texto
End Sub
 
 

pues yo en ese .txt pongo lo que quiero que valla en el commandbuton