Oversætte C++ til VBA kode i excel

Hej alle sammen!

Jeg har følgende kode fra C++, som jeg meget gerne vil ha' oversat til brug i excel (VBA). Nogen der kan hjælpe????


#include "stdafx.h"

typedef int (CALLBACK* FILEFUNC)(const char *, int, int);
typedef char * (CALLBACK* MEMFUNC)(const char *, char *, int *, int);
int _tmain(int argc, _TCHAR* argv[])
{
const int dk = 0;
const int uk = 1;
int cc = 0;
if (argc > 1)
{
HINSTANCE hDLL = LoadLibrary("Be06eng.dll");
if (hDLL)
{
FILEFUNC Calc =
(FILEFUNC)GetProcAddress(hDLL, "Be06Calc");
if (Calc)
cc = Calc(argv[1], 1, dk);
MEMFUNC GetKeys =
(MEMFUNC)GetProcAddress(hDLL, "Be06Keys");
if (GetKeys)
{
// Indlæs xml-modellen i en tekststreng
char *model = GetModel(argv[1]);
if (model)
{
// Modtag xml-nøgletallene som en tekststreng
int max = 2500, status = max;
char *mem = (char*)malloc(max);
char *keys = GetKeys(model, mem, &status, uk);
if (keys)
{
puts(keys);
printf("Brugt %d tegn af %d\n", status, max);
getchar();
}
// Frigiv tekststrengen efter brug
free(mem);
free(model);
}
}
MEMFUNC GetRes = (MEMFUNC)GetProcAddress(hDLL, "Be06Res");
if (GetRes)
{
// Indlæs xml-modellen i en tekststreng
char *model = GetModel(argv[1]);
if (model)
{
// Modtag resultater som en tekststreng
int max = 45000, status = max;
char *mem = (char*)malloc(max);
char *res = GetRes(model, mem, &status, dk);
if (res)
{
puts(res);
printf("Brugt %d tegn af %d\n", status, max);
getchar();
}
// Frigiv tekststrengen efter brug
free(mem);
free(model);
}
}
FreeLibrary(hDLL);
}
}
return cc;
}

Håber meget det kan lade sig gøre?