Using the code below I have had no luck in even getting the modem to initalize. What else do I need, or what can I do?

Private Sub cmddial_Click()
MSComm1.CommPort = 2
MSComm1.PortOpen = True
MSComm1.Settings = "28800,N,8,1"
MSComm1.Output = "ATDT 555-5555" & vbCr
End Sub


-Long live renault