Excel OpenChannel not working

I have code, like this ;

long handle, i, exsat = 3, sbul

integer varmis

sayfa1 = create OLEObject

VARMIS = sayfa1.ConnectToNewObject ('excel.sheet')

IF VARMIS <> 0 THEN

     messagebox("Error","excel not found")

else

     messagebox("Info","excel found")

END IF

sayfa1.application.visible = True

Sayfa1.Application.ActiveWindow.WindowState = 2

handle = OpenChannel("Excel", "Sheet1", HANDLE(w_test))

if handle = -1 then

else

     messagebox("Bilgi","Sheet1 open")

     SetRemote("R2C1", "deneme-1", handle)

     SetRemote("R2C2", "deneme-2", handle)

end if

Sayfa1.Application.Cells.Select

Sayfa1.Application.Cells.Font.Name = "Arial Tur"

Sayfa1.Application.Cells.Font.Size = 8

Sayfa1.Application.ActiveCell.Select

CloseChannel(handle, Handle(w_test))

That code works fine on my computer (win 8.1 office 2013) but not working on one computer. Code line waiting on red colored line. I have checked regedit but I don't find any solution.

Thanks