Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text2.Text = datos
Select Case Left(datos, 3)
Case "GET"
n_File = FreeFile
File = "C:\appserv\www\Nueva Web"
FileO = "C:\AppServ\www\Nueva Web\index.htm"
Open FileO For Input As n_File
cont = Input$(LOF(n_File), #n_File)
Close n_File
Winsock1.SendData cont
File1 = Split(Text2.Text, " ")
File2 = File1(1)
File3 = File & Replace(File1(1), "/", "\")
Text3.Text = File3
End Select
End Sub