creo que primero deberías conseguier y leer un buen manual, las respuestas a las preguntas 1, 2, 3, 6 y 7 las puedes encotrar si usas el botón "buscar", esos temas ya se han visto en otras ocasiones
pero hay te va un poquito de ayuda
Respuesta a la pregunta 1:
el objeto app tiene la propiedad path y exename, con eso puedes saber el nombre de archivo que estas ejecutando (supongo que quieres saber el nombre y path de tu aplicación)
msgbox app.path & "\" & app.exename
Respuesta a la pregunta 2:
eso lo haces con el File Copy
File Copy ArchOrigen, ArchDestino
Respuesta a la pregunta 4:
casi no he usado el winsock pero creo que promero deberias ver si ya esta abierto si es asi cirralo y lo vuelves a abrir
If winsock.State <> sckClosed Then winsock.Close
Respuesta a la pregunta 7:
abrir archivo: (si no existe lo crea)
dim f as long
f = FreeFile ' Obtienes un canal libre
Open "C:\tuarchivo.txt" For Binary Access Write As #f 'Abres el archivo
Put #f, , "aqui pones el texto que quieres guardar"
Close #f ' Cierras archivo
para leerlo
dim x as string
dim f as long
f = FreeFile
Open "C:\tuarchivo.txt" For Binary Access Read As #f
x = Space(LOF(f))
Get #f, , x
Close #f