SoloCodigo

estoy haciendo un programa y quiero recibir los datos binarios que me envia un microcontrolador PIC al ordenador. quiero que me salga el valor binario de lo que me ha mandado vamos. puse un codigo que encontre:

Private Sub MSComm1_OnComm()
      Dim TmpStr As String
      Dim StrLen As Long, I As Long
      Dim FileData As Byte

      If MSComm1.CommEvent = comEvReceive Then
         While MSComm1.InBufferCount > 0
            TmpStr = MSComm1.Input
            StrLen = Len(TmpStr)
            For I = 1 To StrLen
               FileData = CByte(Asc(Mid(TmpStr, I, 1)))
               ByteCount = ByteCount + 1
               Put #1, ByteCount, FileData
            Next I
            TmpStr = " "
         Wend
      End If
   End Sub

pero cambie FileData por una caja de texto porque yo queria visualizarlos en esa caja.probablemente sera una burrada pero soy recien iniciado en el tema.acepto cualquier sugerencia.gracias.