[VB.NET] Stored procedure AS/400 con output

[raffaeu]

Ciao ho creato la seguente stored in AS400

CREATE PROCEDURE PROVA2(OUT STR VARCHAR(10))
LANGUAGE SQL                                
BEGIN                                       
DECLARE VAR1 VARCHAR(10);                   
SET VAR1 = 'PIPPO';                         
SET STR = VAR1;                             
END

Funziona ma da VB.NET quando la chiamo non mi restituisce il parametro STR .. cosa manca? Cosa sbaglio?