Private Sub subOutArg(ByVal aTb() As Integer) Dim i As Integer For i = 0 To UBound(aTb) aTb(i) = ...(略)... Next i End Sub