Visual Basic - Procedimiento almacenado y VB

Como puedo ejecutar un procedimiento almacenado con parametros desde VB con ADO. Logre crear el procedmiento en el SQL Server. pero no se como ejecutarlo desde VB. se que debo ocupar el objeto command y parameter. ¿Pero como lo hago?.
Si alguien me puedo ayudar. se lo agradecere.

e adjunto un ejemplo, cualquier duda encantado en ayudarte
Public Function NumeroDptosRealesenPiso(cn As ADODB.Connection, idObra As String, idEdificio As Integer, npiso As Integer) As Integer
'función que devuelve el número de dptos del edificio más alto de un proyecto
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
With cmd
Set .ActiveConnection = cn
.CommandText = "sp_NumeroDeDptosRealesPorPiso"
.CommandType = adCmdStoredProc
.Parameters.Append cmd.CreateParameter("Salida", adSmallInt, adParamOutput)
.Parameters.Append cmd.CreateParameter("Entrada", adVarChar, adParamInput, 8, idObra)
.Parameters.Append cmd.CreateParameter("Entrada2", adSmallInt, adParamInput, , idEdificio)
.Parameters.Append cmd.CreateParameter("Entrada3", adSmallInt, adParamInput, , npiso)
.Execute
End With
NumeroDptosRealesenPiso = cmd(0)
Set cmd = Nothing
End Function