Return Value for Strored procedure

Public Function GetNextIDForTable(ByVal tableName As String) As Integer
        Try
            Dim sqlConnection As SqlConnection
            sqlConnection = Me.createConnection
            Dim cmd As New SqlCommand
            'Dim returnValue As Object

            cmd.CommandText = "[dbo].[name]"
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = sqlConnection
            cmd.Parameters.AddWithValue("@TableName", tableName)

            '    SqlParameter parameter = new SqlParameter();
            'parameter.ParameterName = "@CategoryName";
            'parameter.SqlDbType = SqlDbType.NVarChar;
            'parameter.Direction = ParameterDirection.Input;
            'parameter.Value = categoryName;
            '    sqlConnection.Open()
            Dim returnValue As New SqlParameter("@Return_Value", DbType.Int32)
            returnValue.Direction = ParameterDirection.ReturnValue

            cmd.Parameters.Add(returnValue)

            '        conn.Open();
            '        cmd.Connection = conn;

            '        cmd.ExecuteNonQuery();
            '        int count = Int32.Parse(cmd.Parameters["@Return_Value"].Value.ToString());
            '        Response.Write("
Return Code: " + count.ToString());
            '        conn.Close();
            sqlConnection.Open()
            cmd.ExecuteNonQuery()
            Dim nextId As Integer = Int32.Parse(cmd.Parameters("@Return_Value").Value.ToString())
            sqlConnection.Close()
            Return nextId
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
        
    End Function