SQL - Error Stored Procedure

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

Su procedimiento requiere de un parametro de tipo INT, agreguelo asi:

.CommandText = " SpConsultAveria " & text1.text

Suponiendo que se estuviera capturando en su front en un objeto TEXTO.

Saludos.