Comm1 not opening
 

Here is my problem I can't get comm 1 to open here is what I have so far and I just keep getting an error saying comm1 not open. Anyone have an idea?


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