Visual Basic - Error 80040e10

Hola agradezco la ayuda q me puedan prestar con el sgt error
estoy ejuctando un procedimiento almacenado en sql server2000 desde vb 6.0 de la sgt forma
Dim reg_consulta As ADODB.Recordset
Dim cmasql As ADODB.Command
Set cmasql = CreateObject("ADODB.Command")
With cmasql
.ActiveConnection = conexion
.ActiveConnection.CursorLocation = adUseClient
.CommandType = adCmdStoredProc
.CommandText = " SpConsultAveria "
End With
Set reg_consulta = cmasql.Execute

me funciona bien pero tengo el error cuando lee el procedimiento q es:

CREATE PROCEDURE SpConsultAveria
@TextNumero int
as
SELECT *
FROM AVERIAS
WHERE NUMERO = @TextNumero
ORDER BY NUMERO
GO

ME DICE : ERROR -2147217904(80040e10)
El procedimiento precisa el parametro @textNumero
que no ha sido especificado.

Gracias