Scusa Jonnny_Depp ma essendo un po' stordito nn avevo notato la sezione VB:
comunque grazie acaro, ho risolto un problema: era l'uguale ke dava problemi :

Data = TCP.GetData 'ahia sbagliato
TCP.Getdata Data 'giusto

TCP.SendData = "BOF" & ext 'sbagliato
TCP.SendData "BOF" & ext 'giusto

adesso si compila ma la seconda funzione mi da ancora lo stesso problema però : Necessario Oggetto