Windows - comporre Un Numero Di Telefono

com # Comporre un numero di telefono
Dim NumeroDiTelefono As String
NumeroDiTelefono = "055-555555"
Open "COM2:" For Output As #1
Print #1, "ATDT" & NumeroDiTelefono & Chr$(13)
Close #1