Visual Basic-Hyper Terminal?

BOOL     m_bPortReady; 
  HANDLE   m_hCom; 
  CString  m_sComPort; 
  DCB      m_dcb; 
  COMMTIMEOUTS m_CommTimeouts; 
  BOOL     bWriteRC; 
  BOOL     bReadRC; 
  DWORD iBytesWritten; 
  DWORD iBytesRead; 
  char       sBuffer[128]; 
   
  m_sComPort = "Com1"; 
  m_hCom = CreateFile(m_sComPort,  
  		GENERIC_READ | GENERIC_WRITE, 
  		0, // exclusive access 
  		NULL, // no security 
  		OPEN_EXISTING, 
  		0, // no overlapped I/O 
  		NULL); // null template  
   
  m_bPortReady = SetupComm(m_hCom, 1, 1); 
  m_bPortReady = GetCommState(m_hCom, &m_dcb); 
  m_dcb.BaudRate = 9600; 
  m_dcb.ByteSize = 8; 
  m_dcb.Parity = NOPARITY; 
  m_dcb.StopBits = ONESTOPBIT; 
  m_dcb.fAbortOnError = TRUE; 
   
  m_bPortReady = SetCommState(m_hCom, &m_dcb); 
   
  m_bPortReady = GetCommTimeouts (m_hCom, &m_CommTimeouts); 
   
  m_CommTimeouts.ReadIntervalTimeout = 50; 
  m_CommTimeouts.ReadTotalTimeoutConstant = 50; 
  m_CommTimeouts.ReadTotalTimeoutMultiplier = 10; 
  m_CommTimeouts.WriteTotalTimeoutConstant = 50; 
  m_CommTimeouts.WriteTotalTimeoutMultiplier = 10; 
   
  m_bPortReady = SetCommTimeouts (m_hCom, &m_CommTimeouts); 
   
  while (1) { 
          bReadRC = ReadFile(m_hCom, &sBuffer, 1, &iBytesRead, NULL); 
          printf("Bir bayt okundu:%c\n", sBuffer[0]); 
  }