Skype UDF Problem

#include <Array.au3>


func _SkypeStart()
	$oSkype = ObjCreate("Skype4COM.Skype")
	$SinkObject=ObjEvent($oSkype,"Skype_")
	if ($oSkype.Client.IsRunning) == 0 Then
		$oSkype.Client.Start()
	EndIf
	return $oSkype
EndFunc


func _SkypeCall($calluser,$oSkype)
	$info = $oSkype.PlaceCall($calluser)
	return $info
EndFunc
func _SkypeChatAnzahl($calluser,$oSkype)
	$info = $oSkype.Messages.Count
	return $info
EndFunc


func _SkypeChatStart($calluser,$oSkype,$nachricht,$topic = "")
	$oMembers = ObjCreate("Skype4COM.UserCollection")
	$oMembers.Add($oSkype.User($calluser))
	$oChat = $oSkype.CreateChatMultiple($oMembers)
	$oChat.OpenWindow
	if $topic <> ""Then
		$oChat.Topic = $topic
	EndIf
	$oMsg = $oChat.SendMessage($nachricht)
	return $oChat
EndFunc
func _SkypeChat($oChat,$nachricht)
	$oMsg = $oChat.SendMessage($nachricht)
	return 1
EndFunc
func _SkypeChatEnde($oChat)
	$info = $oChat.Leave
	Return $info
EndFunc




$oCall = _SkypeChatStart("echo123",$oSkype,"test")
_SkypeChat($oCall,"Essen")
$info =_SkypeChatEnde($oCall)


MsgBox(0,"chatts",$info)


;infos https://developer.skype.com/Docs/Skype4COMLib/Multichat_vbs


; Call status events:
Func Skype_CallStatus($oCall, $Status)
   MsgBox(0, "Call" , "Call " & $oCall.Id & " status " & $oSkype.Convert.CallStatusToText($Status))
EndFunc