dovresti usare l'oggeto mscomm
o qui


o

codice:
text1 contiene il numero
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True

MSComm1.Output = "ATDT" & Text1 & vbCr
o qui