Utilizar un SP con Output de SQL en VB

[davidalonsso05]

Buen día, tengo mi SP en SQL de la siguiente manera:

Código SQL:

ALTER PROCEDURE [dbo].[SP_Output]
(@id INT,@mensaje VARCHAR(200) output )
AS
 
DELETE FROM T_Competencia
WHERE ID=@id AND ID  NOT IN (SELECT DISTINCT id_competencia FROM t_gruporelacion)
 
IF @@rowcount > 0
BEGIN 
SET @mensaje='Se borro la tienda con ID: ' + CONVERT(VARCHAR(10),@id)
END 
ELSE 
IF @ID NOT IN(SELECT ID FROM T_Competencia)
SET @mensaje='La tienda no existe' 
ELSE
 SET @mensaje='Error: La tienda tiene relacion con ID ' + CONVERT(VARCHAR(10),@id)
 

y lo ejecuto asi:

Código SQL:

DECLARE @mensaje VARCHAR(200);
EXEC sp_output '10', @mensaje output
 
SELECT @mensaje
 

Bien lo que yo quiero es llevarlo a VB y que imprima los mismos mensajes, tenia mi codigo asi que me mostraba los mensajes como Select de otro SP que si me funciona correctamente y realiza las mismas operaciones:

Código vb:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        id = TextBox4.Text
        res = MessageBox.Show("Desea borrar la tienda?", "Tienda Competencia", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
 
        If res = vbYes Then
            sql = " exec sp_Borra_Competencia " + id + ""
            conectar()
            com = New SqlClient.SqlCommand(sql, conexion)
            dr = com.ExecuteReader
            If dr.Read Then
                MsgBox(dr(0).ToString())
 
 
            End If
        End If
        llenar_grid2()
 
 
    End Sub
 

Podria modificar mi codigo para uitlizar el output? Gracias de ante mano saludos!