Visual Basic - Store Procedures con parametros output

Tengo el sgte problema, no puedo leer el valor de retorno de un parametro de un SP en sql server, alguien puede revisar mi codigo y decirme si estoy haciendo algo mal; o en todo caso proponer alguna otra manera de hacerlo. Se lo agradeceria mucho.

Dim Cmd As ADODB.Command
Dim ParamIn1 As ADODB.Parameter
Dim ParamOut1 As ADODB.Parameter
Cmd.ActiveConnection = o_Conn
Cmd.CommandText = "sp_LoadCDR"
Cmd.CommandType = adCmdStoredProc

Set ParamIn1 = Cmd.CreateParameter("@ci_Code_Enterprise", adChar, adParamInput, 6)
ParamIn1.Value = s_Codigo_Empresa
Cmd.Parameters.Append ParamIn1

Set ParamOut1 = Cmd.CreateParameter("@Total", adBigInt, adParamOutput)
Cmd.Parameters.Append ParamOut1

valor = ParamOut1.Value <---- aqui el valor me sale null, y no es error en el SP, ya que en el QueryAnalyzer si lo hace bien.