Private Sub Form_KeyPress(KeyAscii As Integer)
  Dim n As String
  If KeyAscii = 13 Then
   Print n
   End If
 n = n + Chr(KeyAscii)
End Sub