tel cevirme

slm arkadaşlar benim sorum şu diyelim cevir diye bir command butonum ve içerisinde alan kodu ile birlikte telefon numarası yazan bir textbox ım var. yapmak istediğim şu cevir butonuna basınca textbox daki numarayı cevirsin?

Private Sub Dial(num As String)

Communications.PortOpen = True

Communications.Output = "AT" + Chr$(13)
Do

DoEvents
Loop Until Communications.InBufferCount >= 2


Communications.Output = "ATDT " + num + Chr$(13)
wait = Timer + 47

Do

DoEvents
Loop While Timer <= wait

End Sub
bunu biraz daha süsliyebilirsin ama bunuda kendin arastirmalisin mesela mesgul tonunda ise tekrar aratabilirsin felan burdaki beklenen deger num gordugun gibi kolay gele...