questo listato ti stampa sul form tutti i caratteri alfanumerici e tutti i valori ascii in stringa

Se vuoi uscire da ciclo, come tu hai richiesto basta che digiti il tasto ESC che sarebbe il primo in alto a sinistra sulla tua tastiera, così termini la routine.

se vuoi stmpare col la stampante e non sul form sostituisci
Form1.Print ch$
con
Printer.Print ch$ nel listato........
........nel listato quì è già sostituito

fai un nuovo progetto vuoto e copia e incollaci questo listato
sul form immetti un controllo pulsante command1
poi premi il tasto F5 della tua tastiera
buon lavoro............

'-------taglia da quì-----------------
dim cancelpressed

Private Sub Command1_Click()
Dim ch$
KeyPreview = True
cancelpressed = False
ch$ = ""
While cancelpressed = False
For i = 0 To 255
ch$ = Chr$(i)
'Form1.Print ch$
Printer.Print ch$
DoEvents
If cancelpressed = True Then Beep: MsgBox ("ora esco dal ciclo"): Exit Sub
Next i
Wend
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyEscape
cancelpressed = True
End Select
End Sub

'-----------a quì--------------------