Dim InpStr As String

  ...

  InpStr = InpStr & Chr$(InpByt(0))