Crystal Report - Pasar multiples parametros desde VB a Crystal 8

hola:
Mi problema es el siguiente; arme un reporte que contiene parametros que le envia (dentro del mismo reporte) a una funcion , el tema es que se los paso pero no se si se los estoy pasando bien , porque la formula me da un error " a subscript must be betwen 1 and the size of the array" por ende no se si es un error de la formula o un error en el pasaje de parametros.

aca esta como se lo paso en visual al reporte:

Dim CParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim CParamDef As CRAXDRT.ParameterFieldDefinition

Set CParamDefs = CReport.ParameterFields

For Each CParamDef In CParamDefs
With CParamDef

Select Case .ParameterFieldName
Case "NomSector"
.ClearCurrentValueAndRange
.SetCurrentValue Me.ComPedInt.Text
Case "registros"
.ClearCurrentValueAndRange
.SetCurrentValue GridPedInt.Rows - 1
Case "codigo"
.ClearCurrentValueAndRange
For x = 1 To GridPedInt.Rows - 1
.SetCurrentValue CDbl(GridPedInt.TextMatrix(x, 1))

Next
Case "Nombre"
.ClearCurrentValueAndRange
For x = 1 To GridPedInt.Rows - 1
.SetCurrentValue GridPedInt.TextMatrix(x, 2)
Next
Case "descripcion"
.ClearCurrentValueAndRange
For x = 1 To GridPedInt.Rows - 1
.SetCurrentValue GridPedInt.TextMatrix(x, 3)
Next
Case "cantidad"
.ClearCurrentValueAndRange
For x = 1 To GridPedInt.Rows - 1
.SetCurrentValue CDbl(GridPedInt.TextMatrix(x, 4))
Next
End Select
End With
Next

CReport.EnableParameterPrompting = False
CRV.Top = 0
CRV.Left = 0
CRV.ReportSource = CReport
CRV.Visible = True
CRV.ViewReport

y este es el codigo de la formula en basic:

dim hasta as number
dim x as number
dim t as string
'esto es porque no estoy seguro de como trabaja el crystal
hasta={?registros}
x=0
t=""
'esto es porque no estoy seguro de como trabaja el crystal
for x=1 to hasta
t= t & cstr({?codigo}(x)) & chr(13)
Formula=t & chr(13)
next

si me pueden brindar alguna ayuda os agradecere.

Fijate que el nombre del campo de parametro en el crystal tenga el mismo nombre respetando mayusculas y minusculas.
salu2