NumTel

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