Переписать с паскаля в visual basic 6.0

Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр
uses crt;
var f:text;
i:byte;
nf:string;
c:char;
kb,kc:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f); {$I+}
if IOResult <> 0 then
begin
writeLn('Файл ',nf,' не найден!');
writeLn('Работа программы завершена. Нажмите ENTER');
readln;
exit;
end;
kc:=0;
kb:=0;
while not eof(f) do
begin
read(f,c);
if c in ['0'..'9'] then kc:=kc+1
else if c in [#168,#184,#192..#255] {символы русских букв в кодировке ANSI}
then kb:=kb+1;
end;
close(f);
if kc>kb then write('Цифр больше чем русских букв')
else if kb>kc then write('Русских букв больше чем цифр')
else write('Русских букв и цифр поровну');
readln
end.

Дан текст. Определить каких букв больше - гласных или согласных.
program example1;
const
glasn=['а','е','и','о','у','ы','э','ю','я'];
soglas=['б','в','г','д','ж','з','й','л','м',
'н','р','к','п','с','т','ф','х','ц','ч', 'ш','щ'];
var
st: string;
g,s,i:integer;
begin
write('Введите строку> '); readln(st);
g:=0; s:=0;
for i:= 1 to length(st) do
if st[i] in glasn then inc(g) else if st[i] in soglas then inc(s);
if g> s then writeln('Гласных больше')
else if g< s then writeln('Согласных больше')
else writeln('Согласных и гласных букв поровну');
readln;
end.

0