Приближенное вычесление экспонента

[Firsim]

Помогите написать программу для приближенного вычесления значения числа е на Visual Basic... Собственно нашел я в нете на си++ творение но оно заморочено))
Сам написал на пыхе (ниже) "творение") Собственно я синтаксиса бейсика не знаю... А ставить на комп компилятор и т.д. лень...
Нада вычеслить приближенно с точностью до 0,001... Собственно у моего "творения" идет погрешность дальше сразу)) Но над что нить на бейсике) пых не катит((...
Вот на википедии есть способы приближенного вычесления, еси кому нада))
Буду признателен за помощь) Да и в математике я вообще не шарю))

PHP код:

$e = '2.718281828459045235360287471352662497757';
for ($i = 0; $e1 < $e; $i++) {
$result = $i%2;
if ($result === 0) {
$e1 = $e1 + (1/$i);}
}
$e1 = $e1 - (1/$i);
echo 'Приближенное значение е = '.$e.'<br/>';
echo 'Приближенное значение е = '.round($e1, 3).' (с точностью до 0,001)<br/>';
echo 'Кол-во циклов '.$i.'';