Public Application_Read() Dim Keys As String ' Read up to (so the negative sign) 256 characters from the standard input Keys = Read, -256 ... End