使用VBA

Question

我尝试与使用串行端口通信的设备进行通信。我有一些研究模式，并找到了很多为你做这个的付费软件。但是，我真的想自己做，直接从Excel使用VBA。问题是，我对VBA不够好，找到教程或示例一直很困难。也许我的问题不是主题，但我真的需要帮助。我试过这个宏代码，但Excel崩溃了。

Sub Read_Serial()
  Open "COM3" For Binary Access Read Write As #1
  '--------------------------------------------------------
  answer = ""                  'clear response string
  char = Input(1, #1)          'get first character
  While (char <> Chr(13))      'loop until [CR]
    If (char > Chr(31)) Then
      answer = answer + char   'add, if printable char
    Else
      ' Do what ever you like
    End If
    char = Input(1, #1)        'get the next character
  Wend
  Close #1
  '--------------------------------------------------------
  Cells(1, 1) = answer         'put response in cell("A1")
End Sub

感谢阅读并抱歉如果我输错了我的问题，英语不是我的母语。