Asp. NET using vb.net to invoke the stored procedure and get the return value

Asp.net| stored procedure//Stored procedure Code
CREATE PROCEDURE [Addnewinvoiceinfo] (@sUserID int, @sClaimMethod varchar (m), @sInvoiceNum varchar, @sInvoiceDate datetime, @sBuyCity varchar) as
Insert into Smb_invoiceinfo (memberid,claimmethod,invoicenum,invoicedate,invoicecity) Values (@sUserID, @ Sclaimmethod, @sInvoiceNum, @sInvoiceDate, @sBuyCity)
return @ @IDENTITY
Go

Calling stored procedure Code
Dim CN as New SqlConnection ()
Dim Invoiceid as String
Try
CN. ConnectionString = Dbconstr
CN. Open ()
Dim CMD as SqlCommand
CMD = New SqlCommand ("Addnewinvoiceinfo", CN)
Cmd.commandtype = CommandType.StoredProcedure

Cmd. Parameters.Add (New SqlParameter ("@sUserID", SqlDbType.Int))
Cmd. Parameters ("@sUserID"). Value = CInt (Userid.text)

Cmd. Parameters.Add (New SqlParameter ("@sClaimMethod", SqlDbType.VarChar, 50))
Cmd. Parameters ("@sClaimMethod"). Value = Transname.text

Cmd. Parameters.Add (New SqlParameter ("@sInvoiceNum", SqlDbType.VarChar, 50))
Cmd. Parameters ("@sInvoiceNum"). Value = Invoicenum.text

Cmd. Parameters.Add (New SqlParameter ("@sInvoiceDate", Sqldbtype.datetime))
Cmd. Parameters ("@sInvoiceDate"). Value = InvoiceDate.SelectedDate.Date

Cmd. Parameters.Add (New SqlParameter ("@sBuyCity", SqlDbType.VarChar, 50))
Cmd. Parameters ("@sBuyCity"). Value = Buycity.text

Cmd. Parameters.Add (New SqlParameter ("@sInvoiceID", SqlDbType.Int))
Cmd. Parameters ("@sInvoiceID"). Direction = ParameterDirection.ReturnValue

Cmd. ExecuteNonQuery ()
Invoiceid = CMD. Parameters ("@sInvoiceID"). Value.tostring ()
Cmd. Dispose ()
Catch ex as Exception
Response.Write (ex. ToString ())
Finally
CN. Close ()
End Try