Function Prova(ParamArray args() As Variant)
    Dim result As String
    Dim i As Integer
    
    result = ""
    
    For i = LBound(args) To UBound(args)
        result = result & args(i) & " "
    Next i
    
    Prova = Trim(result)
End Function