Get The OUTPUT Parameter Value from SP Using Dot Net

Imports System.Data
Imports System.Data.SqlClient

Partial Class SP
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            Dim Con As New SqlConnection
            Con.ConnectionString = "Password=RR;Persist Security Info=True;User ID=RR;Initial Catalog=RR;Data Source=RR"
            Con.Open()
            Dim INparam, OutPram As New SqlParameter
            INparam.Direction = ParameterDirection.Input
            INparam.SqlDbType = SqlDbType.Int
            INparam.ParameterName = "@ID"
            INparam.Size = 20
            INparam.Value = Textbox1.text

            OutPram.Direction = ParameterDirection.Output
            OutPram.SqlDbType = DbType.String
            OutPram.ParameterName = "@Name"
            OutPram.Size = 200

            Dim com As New SqlCommand
            com.Connection = Con
            com.CommandType = CommandType.StoredProcedure
            com.CommandText = "spGetOutput"
            com.Parameters.Add(INparam)
            com.Parameters.Add(OutPram)
            com.ExecuteNonQuery()

            Label1.Text = OutPram.Value()

        Catch ex As Exception

        End Try
    End Sub

End Class