Visual Basic - SQL Server y VB

necesito tomar el valor de un parametro de salida de un store procedure(procedimiento almacenado), como es que puedo hacer esto. Ya tengo el siguiente código pero aun no funciona, me marca error cuando lo ejecuto:

Dim parametro As ADODB.Parameter
Dim iSaldo As Integer
On Error GoTo SubError
Set Comando = New ADODB.Command
Set Comando.ActiveConnection = DB
Comando.CommandText = "pAgencia_Saldo"
Comando.CommandType = adCmdStoredProc

Set parametro = Comando.CreateParameter("AgenciaID", adNumeric, adParamInput, , AgenciaID)
Comando.Parameters.Append parametro
Set parametro = Comando.CreateParameter("dtFecha", adDate, adParamInput, , Date)
Comando.Parameters.Append parametro
Set parametro = Comando.CreateParameter("iSaldo", adNumeric, adParamOutput, , 0)
Comando.Parameters.Append parametro
Comando.Execute
Saldo = Comando.Parameters(2).Value
SubError:

De antemano muchas gracias