How I can call this procedure in VB6 e SQL Plus, exec Teste(13,.... , some one can help me ?Thanks!

"Create Procedure Teste
(pCd_Loja IN integer,
pCd_Loja_Out OUT integer)
as
check_output varchar2(6);
Begin
select cd_loja into pCd_Loja_Out from TB_Loja where Cd_loja = pCd_Loja;
Exception
when others then
dbms_output.put_line('Erro no SQL'||SQLCODE||SQLERRM);
End Teste;"