怎样把从串口接收到的数据存到一个文件里，以便查阅

1.若数据已接收完毕(已保存进一个串中)：  Dim lFileNo as long  '得到空闲文件号
  lFileNo = FreeFile()  '打开文件(若无则生成,有则添加)
  Open 文件名 For Append Lock Write As #lFileNo
  
  '写数据进文件
  Print #lFileNo, 串变量