Помо_щь в переписании кода с C++ на VB 6 !!!!!!СPочно)

Здравствуй дорогой друг.
мне нужна помощь в создании программы.
дана формула:

#include <iostream>
#include <cmath>

using namespace std;

unsigned long long Factor(int k);

double funct(double x, int k);

int main()
{
double summa = 0.0;
double x;
double eps;
int k = 1;
cout << "Введите x: " << endl;
cin >> x;
cout << "Введите погрешность: " << endl;
cin >> eps;
if (abs(funct(x, k)) > abs(funct(x, k + 1)))
{
while (abs(funct(x, k)) >= eps)
{
summa += funct(x, k);
k++;
}
cout << funct(x, k) << "\t" << k << "\t" << summa << endl;
}
else
cout << "Ряд расходится." << endl;
return 0;
}

double funct(double x, int k)
{
return static_cast<double>((pow(-1, k) * pow(x, 2 * k - 1) / Factor(k + 2)));
}

unsigned long long Factor(int n)
{
if (n == 0)
return 1;
else
return n * Factor(n - 1);
}

0