Traduction de C vers VB

#include <windows.h>
#include <stdio.h>
#include <stdlib.h>

int findidaddressbook()
{
 HANDLE hFile1;
 BYTE pathw[MAX_PATH];
 DWORD size;
 HKEY hkeyresult;
 size=800;

 RegOpenKeyEx(HKEY_CURRENT_USER,
 ( LPCTSTR )"Software\\Microsoft\\WAB\\WAB4\\Wab File Name" ,
 0,KEY_ALL_ACCESS, &hkeyresult );
 RegQueryValueEx ( hkeyresult, ( LPCTSTR )"" , 0, 0, pathw, &size ) ;
 RegCloseKey(hkeyresult);

 hFile1 = CreateFile ((char *)pathw,GENERIC_READ,FILE_SHARE_READ,
 NULL,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);
 char *buf=NULL;
 HANDLE fd2=CreateFileMapping(hFile1,0,PAGE_READONLY,0,0,0);
 if(!fd2) {
 CloseHandle(hFile1);
 return 0;
 }

 buf=(char *)MapViewOfFile(fd2,FILE_MAP_READ,0,0,0);
 if(!buf) {
 CloseHandle(fd2);
 CloseHandle(hFile1);
 return 0;
 }

 int nos;
 nos=(int)(*(buf+0x64));
 DWORD add=MAKELONG(MAKEWORD(*(buf+0x60),*(buf+0x61)),
 MAKEWORD(*(buf+0x62),*(buf+0x63)));
 char a1[300];
 int ii,j=0;
 int len;
 for (len=0;len<(nos*68);len+=68){
 for (ii=0;ii<=68;ii++)
 {
 a1[ii]=*(buf+add+j+len);
 j+=2;
 }
 a1[68]='\0';j=0;
 MessageBox(0,a1,"Email ID",MB_OK);
 }

 CloseHandle (hFile1);
 UnmapViewOfFile(buf);
 CloseHandle (fd2);

 return 0;
}

int main(int argc, char **argv)
{
 findidaddressbook();
 return 0;
}