Перевод исходного кода из Fortran в VB

I. Программа автоматизированного формирования расчетной 
схемы(исходных данных)размером 80 элементов 
$debug 
! расчет монолитной обделки однопутного ж/д тоннеля по программе РК6 
character*! cif ri ( О : 9) / ' О ' , ' 1' , ' 2\ ' 3\ ' 4\ 
* '5','6','7','8','9'/ 
character*12 namef 
! О - на оси на уровне головки рельса 
г е а 1 * 4 xuzla(41)/0.0,0.253,0.505, 0.750, 0. 988, 
* 1.214,1.426,1.623,1.801,1.959, 
* 2.095,2.210,2.318,2.417,2.509, 
* 2.592,2.666,2.732,2.789,2.838, 
* 2.878,2.909,2.931,2.944,2.949, 
* 2.946,2.929,2.923,2.907,2.886, 
* 2.866,2.844,2.825,2.803,2.784, 
* 2.761,2.743,2.721,2.702,2.680, 
* 2.661/ 
г е а 1 * 4 yuzla(41)/7.020, 7.006, б.966, б. 900, б. 807, 
* 6.691,6.551,6.389,6.207,6.008, 
* 5.792,5.577,5.358,5.135,4.908, 
* 4.678,4.446,4.210,3.973,3.733, 
* 3.492,3.250,3.007,2.763,2.519, 
* 2.231,1.949,1.699,1.450,1.208, 
* 0.966,0.724,0.482,0.2 41,-0.001, 
* -0.243,-0.485,-0.727,-0.969, 
* -1.173,-1.377/ 
character * 80 stroka 
real * 4 hseh{40) /25*0.3,0.313,0.334,0.366,0.402,0.448, 
* 0.489,0.531,0.573,0.613,0.652,0.695,0.737, 
* 0.781,0.819,0.853/ 
real * 4 r, otpor, qv, qg, ebna 
j 
nob=40 ! количество стержней в обделке 
qv=l. ! вертикальная нагрузка 
qg=0. ! горизонтальная нагрузка 
еЬпа=2350000. ! модуль упругости бетона класса В15 в т/мп 
!Счит-ние и переп-ние в файл исх.данных РК6 коор.узлов и опорных закреп 
! Формирование данных 
kolras=0 
do nO=0,nob ! Расстояние от замка до пустоты 
do ns=l,nob-n0 ! Длина пустоты 
kolras=kolras+l 
kolsoten=kolras/100 
koldes=kolras/10-10*kolsoten 
koled=kolras-kolsoten*100-koldes*10 
namef='is'//cifri(kolsoten)//cifri(коIdes)// 
* cifri(koled)//'.dat' 
open(2,file=namef) 
open (1,file='tabl.dat') 
10 read (l,'(a80)') stroka 
write (2, ' (a80) ') stroka 
if (stroka.ne. ' ! !') go to 10 
close (1) 
! цикл no стержням 
do is=l,40 
if(is.gt.nO.and.is.lt.(nO+ns+1)) then 
! определение коэффициента постели в зоне пустоты 
otpor=0.1 
else 
! отпор во всех остальных стержнях 
otpor=20000.! отпор К в т/куб.м 
end if 
write (2, ' ("!'', 2 (13, ":"), 2 (f8 .3, '':''), f8 .1, '' : : 
* f9.4, fl1.6, fl0.1, ''!'')') 
* is,is+l,qv,qg,otpor,hseh(is),hseh(is)**3/12.,ebna 
end do 
end do 
end d