Private Sub ParameterSub(ParamArray parameters() As Variant)
Dim txt As String Dim i As Integer txt = Format$(UBound(parameters) - LBound(parameters) + 1) & _ "parameters:" & vbCrLf For i = LBound(parameters) To UBound(parameters) txt = txt & Format$(i) & vbTab & _ TypeName(parameters(i)) & vbTab & _ parameters(i) & vbCrLf Next i Text1.Text = txt End Sub |