No es el como se llama xD
Puedes hacer algo así
Con eso puedes hacer (hasta donde creo) pasarle variables tipo integer arbitrariamente
No se visual basic así que solo es una idea
Puedes hacer algo así
Código (vb) [Seleccionar]
Function comparar(ParamArray Vals() As Variant)
Dim i control As Integer
Dim conteo as integer
For i = 1 To UBound(Vals)
If(Vals[i-1]==Vals[i])
conteo ++
Endif
Next intLoopIndex
Return conteo
End Function
Con eso puedes hacer (hasta donde creo) pasarle variables tipo integer arbitrariamente
No se visual basic así que solo es una idea