Sorry if this is up there twice but I did not see it the up so. Here goes again.
I can't get comm1 to open and here is the code that I am useing. I just keep getting errors. Again sorry if this is up twice

Private Sub CommandButton1_Click()
Dim a As Boolean
a = False
a = CheapComm1.OpenCommPort(€œCOM1€�, "9600,n,8,1")
If a = True Then
MsgBox "open"
End If
If a = False Then
MsgBox "error"
End If
End Sub