The error is "OLE lDispatch exception code 0 from Skype4COM.Skype.1: Connection refused..."

Here is some code that I found and it doesn't work for me

** Create a Skype4COM object:
oSkype = CreateObject("Skype4COM.Skype", "Skype_")
 
** Start the Skype client:
If !oSkype.Client.IsRunning 
	oSkype.Client.Start()
ENDIF 
 
** Declare the following Skype constants:
cUserStatus_Offline = oSkype.Convert.TextToUserStatus("OFFLINE")
cUserStatus_Online = oSkype.Convert.TextToUserStatus("ONLINE")
cCallStatus_Ringing = oSkype.Convert.TextToCallStatus("RINGING")
cCallStatus_Inprogress = oSkype.Convert.TextToCallStatus("INPROGRESS")
cCallStatus_Failed = oSkype.Convert.TextToCallStatus("FAILED")
cCallStatus_Refused = oSkype.Convert.TextToCallStatus("REFUSED")
cCallStatus_Cancelled = oSkype.Convert.TextToCallStatus("CANCELLED")
cCallStatus_Finished = oSkype.Convert.TextToCallStatus("FINISHED")
cCallStatus_Busy = oSkype.Convert.TextToCallStatus("BUSY")
cAttachmentStatus_Available = oSkype.Convert.TextToAttachmentStatus("AVAILABLE")
	 
** The PlaceCall command will fail if the user is offline. To avoid failure, check user status and change to online if necessary:
*!*	If cUserStatus_Offline = oSkype.CurrentUserStatus 
*!*		oSkype.ChangeUserStatus(cUserStatus_Online)
*!*	ENDIF 

** Create a user object:
oUser = oSkype.User("Chasse Denis")


*!*	MESSAGEBOX( "User " + oUser.Handle + " online status is " + oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus))
*!*	WScript.Echo "User " & oUser.Handle & " online status is " & oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus)

SET STEP ON 

** Place a call:

Up to this point everything is ok. It's what follows that is not right.

I tried the next three ways to place a call. They all give errors.

oCall = oSkype.PlaceCall(oUser)
oCall = oSkype.PlaceCall(oUser.Handle)
oSkype.PlaceCall(oUser.Handle)

If even if one of the previous worked it wouldn't really do what I want.

From my VFP app. I want to be able to call a phone number (SkypeOut)

Anybody knows how to fix this?