Hola.
En Basic, &H significa que el numero a continuación está en decimal. Por lo que CHR$(&H1B); equivale a CHR$(27); (1B es 27 en Hexadecimal).
Dicho esto, la línea
Código:
PRINT #1, CHR$(&H1B);"a";CHR$(1);
Equivale a
Código:
Writeln ( f, #27 + 'a' + #1 );
(Habías traducido mal CHR$(1) que equivale a #1).
Espero que estas indicaciones, te ayuden a traducir el código VB. En lo que respecta al Código Barras, la verdad es que tampoco entiendo la notación en que viene.
Saludos.