rs232 sende/modtage med MSComm

Jeg skal lave et lille program som sender en kommando på rs232 og så modtager input derefter.

Jeg har lavet lidt kode som beregner kommandoen som skal sendes, men hvordan sender/modtager jeg ved hjælp af MSComm.

Min kode:

Private Sub Command1_Click()
C = Chr$(1) & Chr$(8) & Chr$(0) & Chr$(0)
C = C & sgfGetChecksum(0)
C = C & Chr$(12)
End Sub

Public Function sgfGetChecksum(ByVal vsString) As String

  Dim I As Integer, T As Integer
  Dim C As Byte

  C = 0
  I = Len(vsString)
  For T = 1 To I
    C = (C Xor Asc(Mid$(vsString, T, 1)))
  Next T
  sgfGetChecksum = Chr$(0)

End Function