Hàm có đối số tùy ý

[cman]

Mình muốn làm một hàm trong VB mà có thể nhập vào bao nhiêu đối số cũng được. Có anh nào biết giúp em với.

[cman]

Đây là đoạn code làm hàm có đối số tùy ý.

Function Sum(ParamArray intNums()) As Integer
Dim x As Variant
Dim y As Integer
For Each x In intNums
y = y + x
Next x
Sum = y
End Function

Function NoiChuoi(ParamArray Strings()) As String
Dim s As Variant
Dim ss As String
For Each s In Strings
ss = ss & " " & s
Next s
NoiChuoi = ss
End Function

Private Sub Form_Load()
Text1.Text = Sum(1, 3, 5, 7, 8)
Text2.Text = NoiChuoi("Chiem", "Minh", "An")
End Sub