Call StoreProcedure But Does Not Return Value.

I try to run the storeprocedure to get retRandomCode.Value, but it returns no value.

 Using myConnection2 As New SqlConnection(connString)

 

myConnection2.Open()

 Dim myPuzzleCmd2 As New SqlCommand("GetRandomCode", myConnection2)

 

myPuzzleCmd2.CommandType = CommandType.StoredProcedure

 Dim retLengthParam As New SqlParameter("@Length", SqlDbType.TinyInt, 6)

retLengthParam.Direction = ParameterDirection.Input

 

myPuzzleCmd2.Parameters.Add(retLengthParam)

 Dim retRandomCode As New SqlParameter("@RandomCode", SqlDbType.VarChar, 30)

 

retRandomCode.Direction = ParameterDirection.Output

 

myPuzzleCmd2.Parameters.Add(retRandomCode)

 

Try

 Dim reader2 As SqlDataReader = myPuzzleCmd2.ExecuteReader()

 

myPuzzleCmd2.ExecuteNonQuery()Catch ex As Exception

 

 

 Response.Write("sp value : " & retRandomCode.Value)                       <----- no value

Dim iRandomCode(1) As StringReDim Preserve iRandomCode(1)

iRandomCode(1) = Convert.ToString(retRandomCode.Value)Session.Remove("RandomCode")

 

 HttpContext.Current.Session("RandomCode") = iRandomCode

 

myPuzzleCmd2 = Nothing

 

 

 

Finally

myConnection2.Close()

 

End Try

 

End Using