Chi riesce a trasferire questo codice da Quick Basic a Visual Basic?

---------------------------------------------------------------------
OPEN "COM2:2400,N,8,1" FOR RANDOM AS #1

PRINT #1, CHR$(1);
PRINT #1, CHR$(0);
CLS

ripeti:

LOCATE 1, 1
PRINT #1, CHR$(3);
dato$ = INPUT$(1, #1)
dato = ASC(dato$)
PRINT "somma dei pesi = ";
PRINT USING "###"; dato
FOR n = 1 TO 8
PRINT "dipswitch "; n; " ";
IF (((dato / 2) - INT(dato / 2)) = 0) THEN
PRINT "chiuso"
ELSE PRINT "aperto"
END IF
dato = INT(dato / 2)
NEXT n

GOTO ripeti
---------------------------------------------------------------------