CREATE PROCEDURE InsertGroup
@para1 varchar(50),
@NEWID Int OUTPUT
AS
BEGIN
    SET NOCOUNT ON
    INSERT INTO Group
    (
        [GroupName]
    )
    VALUES
    (
        @para1
    )
    SET NOCOUNT OFF
    SELECT NEWID = @@IDENTITY
END
 
GO

 
Dim conSQL As New SqlClient.SqlConnection
conSQL.ConnectionString = "data source=""..."";persist security" & _
  "info=False;initial catalog=TEST"
conSQL.Open()
 
Dim MyCmd As SqlClient.SqlCommand
MyCmd = New SqlClient.SqlCommand("InsertGroup", conSQL)
MyCmd.CommandType = CommandType.StoredProcedure
MyCmd.Parameters.Add(New SqlClient.SqlParameter("@para1", SqlDbType.VarChar, _
  50))
MyCmd.Parameters("@para1").Value = txtGroupName.Text
MyCmd.Parameters.Add(New SqlClient.SqlParameter("@NEWID", SqlDbType.Int))
MyCmd.Parameters("@NEWID").Direction = ParameterDirection.Output
MyCmd.ExecuteReader()
 
MsgBox(MyCmd.Parameters("@NEWID").Value)
 
conSQL.Close()