Se il tasto si chiama TastoEsc imposta la proprietà del form CancelButton = TastoEsc. Così se premi esc si verifica l'evento del tasto. Ti basta quindi inserire
codice:
Private Sub TastoEsc_Click ...
   Me.Close()
End Sub