Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Comando As String
    Dim Parametro As String
 
    Winsock1.GetData datos
 
    Comando = Split(datos, "|")(0)
    Parametro = Split(datos, "|")(1)
 
    Select Case Comando
 
        Case Is = "sounon"
            Call Reproducir_WAV(Parametro, SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    End Select
End Sub

 
Private Sub Command1_Click()
 
    Dim Imagen As String
    Dim Url As String
    Dim PathArchivo As String
 
    PathArchivo = "C:\Archivo.txt"
 
    Open PathArchivo For Input As #1
    While Not EOF(1)
    Input #1, Imagen, Url
    Text1.Text = Text1.Text & "<a href=""" & Url & """ target=""_blank""><img class=""alignnone"" src=""" & Imagen & """ alt="" width=""120"" height=""90"" /></a>" & vbCrLf
    Wend
    Close #1
 
End Sub
 

http://www.foto1.jpg, http://www.lamejorwebdelmundomundial.com
http://www.foto2.jpg, http://www.google.es
http://www.foto3.jpg, http://www.mediavida.com