param

Public Sub Form_Open()

  Dim TextBox1 As New TextBox(Me)
  Dim circuloTmp As Circulo

  pruebas("hola", "adios", 20, "pepito", textbox1)
  pruebas(4.14, 55, "gambas")

End

Public Sub pruebas(...)

  Dim v As Variant

  Print "---------------------------------------------------"
  Print "Numero de parametros introducidos:", Param.Count

  For Each v In Param
    Print "valores: ", v
  Next

End