Si, está indicado en el post número 3 de este hilo, crea los 3 parámetros como ya te lo mostré e invoca el método Execute del objeto oComm, después capturas el valor de este parámetro como se muestra:
Código:
'Salida
Set param = oCom.CreateParameter("nombre_parametro", *adInteger, adParamOutput, *4)
oCom.Parameters.Append(param)
'Dos de entrada
Set param = oCom.CreateParameter("nombre_parametro_1", *adInteger, adParamInput, *4, valor)
oCom.Parameters.Append(param)
Set param = oCom.CreateParameter("nombre_parametro_2", *adInteger, adParamInput, *4, valor)
oCom.Parameters.Append(param)
oCom.Execute
'Aqui recuperas el valor del error
variable = oCom.Parameters("nombre_parametro")
Fijate en los tipos de dato y su tamaño.
Saludos