Как можно с помощью VB6 и модема позвонить кому нибудь?

Private Sub Form_Load()
With MSComm1
    .CommPort = 1 'номер порта Com1 com2-2 com3-3
    .Settings = '14400,N,8,1'
    .InputLen = 0 'читать буфер целиком
    .PortOpen = True
    .Output = 'ATDT' & номер телефона & vbCr
    '....
    .DTREnable = False
    .Output = '+++'
    .PortOpen = False
End With
End Sub