Private Sub Dial(Number As String, Port As String, Tone As Boolean)

Open Port & ":" For Output As #1

Select Case Tone

Case True

Print #1, "ATDT" & Number & vbCrLf

Case False

Print #1, "ATDP" & Number & vbCrLf

End Select

Close
End Sub

Private Sub HangUp(Port As String)
Open Port & ":" For Output As #1
Print #1, "CLOSE" & vbCrLf
Close
End Sub

Private Sub Command1_Click()
HangUp "COM1"
End Sub

Private Sub Command2_Click()
Dial "02", "COM1", False
End Sub