Para efetuar uma discagem pelo VB,basta insirir o código:
Crie um MsComm no seu Form;
Depois Digite:
Mscomm1.CommPort = 2 ‘(Nº da porta em que está seu FAX/MODEM)
Mscomm1.PortOpen = True
Mscomm1.Output = “ATDT 1234567” ‘(Discagem por Tom)
MScomm1.Output = “ATDP 1234567” ‘(Discagem por Pulso)