FILEMAP, ayuda visual basic 6

FILEMAP, ayuda visual basic 6

Buenas Tardes:
Necsito comunicar un SCADA y un aplicacion realizada en Visual Basic 6. Actualmente se pueden comunicar usando un filmaping, pero debo reemplzar ese filemaping.
Ando buscando alguien que me ayude a hacer este nuevo filemaping y tenga conocimientos en visaual Basic. (E filemaping esta hecho en c , creo)
Estoy dispuesto a pagar por este servicio. Favor d econtactarme por no colocar datos personales. Contactar por MP.

Código:

/* **********************************************************************************
 *
 *
 *
 *
 *
 *
 *
 ***********************************************************************************/

# include <windows.h>
# include "SimcotMap.h"
# include <stdio.h>

HANDLE			hFileMap;
TipoValores		*hValor;

/* ***************************************************************************
 *
 *
 *
 *
 *****************************************************************************/
long 	 _declspec(dllexport) _stdcall AbrirMapFile ()
{

  long			ErrorCode;
  char			NomFitxer[50]="DbsMap";

 /* Creamos el "file mapping"
  */
  hFileMap = CreateFileMapping ( (HANDLE) 0xFFFFFFFF,
    							   (LPSECURITY_ATTRIBUTES) NULL,
								   PAGE_READWRITE,
								   0,
								   sizeof(TipoValores),
								   NomFitxer);

  
   if (hFileMap == NULL ) ErrorCode = GetLastError ();
   else	
   {
	   /* Nos mapeamos el fichero
		*/
		hValor = (TipoValores *) MapViewOfFile (	
									hFileMap, 
									FILE_MAP_READ | FILE_MAP_WRITE,
									0,0,0);

		if (hValor == NULL) ErrorCode = GetLastError ();
		else 
		{
			ErrorCode		= NO_ERROR;
		}
	}

	return (ErrorCode);
}

/* ***************************************************************************
 *
 *
 *
 *
 *****************************************************************************/
long	 _declspec(dllexport)  _stdcall CerrarMapFile ()
{

	FlushViewOfFile( hValor,66);
	UnmapViewOfFile( hValor);
	CloseHandle (hFileMap);

	return NO_ERROR;
}

/* ***************************************************************************
 *
 *
 *
 *
 *****************************************************************************/
long	 _declspec(dllexport)   _stdcall EscMapInt (short Idx, long Valor)
{

	hValor->Entero[Idx] = Valor;
	
	return NO_ERROR;
}

/* ***************************************************************************
 *
 *
 *
 *
 *****************************************************************************/
long	 _declspec(dllexport)  _stdcall LeerMapInt (short Idx)
{

	long	Valor;

	Valor = hValor->Entero[Idx];

	return Valor;
}