串口问题？请各位大虾帮忙！！

Question

Dim  OutData()  As  Byte
  Dim  InData()  As  Byte
  Dim  Rec  As  Variant
  With  MSComm1
            .CommPort  =  1
          If  .PortOpen  =  False  Then
                .PortOpen  =  True
          End  If
          .Settings  =  "9600,N,8,1"
          .InputMode  =  comInputModeBinary
          .InputLen  =  1
          .Output  =  "A"
          Rec  =  .Input
          InData(0)  =  Rec()'这里改!
  End  With