Sub SkypeCall(ByVal PhoneNumber)Dim shell Set shell = CreateObject("WScript.Shell") shell.Run "callto:" & PhoneNumber, 1, false Set shell = NothingEnd Sub
SkypeCall txtPhoneNumber.Text