RosettaCodeData/Task/Variadic-function/REALbasic/variadic-function-1.realbasic

Sub PrintArgs(ParamArray Args() As String)
  For i As Integer = 0 To Ubound(Args)
    Print(Args(i))
  Next
End Sub