Error al intentar ejecutar un procedimiento almacenado

Hola chicos, gracias por su tiempo al leer este mensaje, tengo la siguiente
linea de codigo y me envia un mensaje de error al momento de ejecutar el
procedimiento
"Procedure 'spRecuperarDatosEmplo' expects parameter '@CodArea', which was
not supplied."
CODIGO
Dim Cn As New SqlConnection(g_objConectar.Conectar)
Dim Cm As New SqlCommand("spRecuperarDatosEmplo", Cn)
Cn.Open()
With Cm
.CommandType = Data.CommandType.StoredProcedure
.CommandText = "spRecuperarDatosEmplo"
.Parameters.Add("@IdEmpleado", Data.SqlDbType.Int).Value = intEmpleado
.ExecuteNonQuery() 'AQUI ENVIA EL ERROR
txtCodEmpleadoM.Text = .Parameters("CodEmpleado").Value
txtNombresM.Text = .Parameters("@Nombres").Value
txtApellidosM.Text = .Parameters("@Apellidos").Value
txtEmailM.Text = .Parameters("@Email").Value
DropDownList1.SelectedItem.Text = .Parameters("CodArea").Value
.Dispose()
End With
Cn.Close()

Si alguno tiene alguna sugerencia mucho agradecería de su apoyo.

Nota:
Procedimiento Almacenado:

CREATE PROCEDURE spRecuperarDatosEmplo
@IdEmpleado int,
@CodArea smallint output,
@CodEmpleado int output,
@Nombres varchar(30) output,
@Apellidos varchar(30) output,
@Email varchar(50) output
AS
SET NOCOUNT ON
SELECT
@CodEmpleado=NULLIF(CodEmpleado, ''),
@CodArea=NULLIF(CodArea,''),
@Nombres=NULLIF(Nombres,''),
@Apellidos=NULLIF(Apellidos,''),
@Email=NULLIF(Email,'')
FROM Empleados
WHERE
IdEmpleado=@IdEmpleado
SET NOCOUNT OFF
GO