Переведите с Turbo Delphi на Visual Basic, очень нужно!

var
f3: TextFile;

procedure TForm1.Button5Click(...);
Begin
AssignFile(f3, 'term1.text');
Rewrite(f3);
For I := 1 To 10 Do
begin
writeln(f3, C[I]);
end;
CloseFile(F3);
end;

Заранее спасибо