Jetzt kommts darauf an, wie du in VB die Prozedur aufrufst.
Parameter eines SQL's werden defaultmässig als Inputparameter definiert und können daher nichts zurückgeben.
Du musst daher die Parameter manuell definieren:

dim xConnect as new ADODB.Connection
dim xCmd as new ADODB.Command

with xCmd
.commandtext="call myproc(?, ?, ...)"
.commandtype=adCmdStoredProc
.Parameters.Append .CreateParameter(, adVarChar, adParamInputOutput, 9)
.Parameters.Append .CreateParameter(, adVarChar, adParamInputOutput, 15)
:
Set .ActiveConnection = xConnect
end with

xCmd(0)=Parm1
:

xCmd.execute