hi im tryin to configure a comm control to notify me when data comes n goes, i established an internet dial up connection n then ran the following code which din't do ne thing

Const comEvSend = 1
Const comEvReceive = 2

Private Sub Form_Load()
MSComm1.CommPort = 3
End Sub

Private Sub MSComm1_OnComm()
If CommEvent = comEvSen Then
MsgBox "Data sent"
ElseIf CommEvent = comevrecieve Then
MsgBox "Data recieved"
End If

End Sub