Get Value from Note or Mesage in Orale Apps

Dim id,stchr,endchr
id = OracleNotification("Decisão").GetROProperty( "message")
stchr = instr(1,id,"= ")
endchr = instr(1,id,")")
id = mid(id,stchr+2,endchr-stchr-2)