Tenho alguns procedimentos armazenados para executar esse usodbms_output.put_line() para colocar dados no buffer de saíd

Sei que preciso usardbms_output.get_line(:line, :status) para recuperar essa saída. Estou a usarSystem.Data.OracleClient para evitar dores de cabeça com a implantação do Oracl

Então, o que estou fazendo de errado com o código abaixo?

Dim cmdSproc As OracleCommand = cnOracle.CreateCommand()
Dim strOracle As New OracleString()
Dim opaLine As New OracleParameter("lineOut", OracleType.VarChar, 255)
opaLine.Direction = ParameterDirection.Output
Dim opaStatus As New OracleParameter("status", 0)
cmdSproc.CommandText = "begin dbms_output.get_line(:lineOut,:status); end;"
cmdSproc.Parameters.Add(opaLine)
cmdSproc.Parameters.Add(opaStatus)

Dim strOutput As String = ""
strOracle = "0"
Try
   While strOracle = "0"
      cmdSproc.ExecuteOracleNonQuery(strOracle)
      strOutput = strOutput & strOracle.ToString() & vbNewLine
   End While
Catch ex As Exception
   MsgBox(ex.Message)
End Try