Dim lst_Audits As List
lst_Audits = GetThisList
...
...
End Sub
Sub GetThisList As List
Dim lst_ThisList As List
lst_ThisList.Initialize
lst_ThisList.AddAll( Array As String( "a", "b", "c", "d", "e" ))
Return lst_ThisList
End Sub
Dim lst_Audits As List
lst_Audits = GetThisList
...
...
End Sub
Sub GetThisList As List
Dim lst_ThisList As List
lst_ThisList.Initialize
lst_ThisList.AddAll( Array As String( "a", "b", "c", "d", "e" ))
Return lst_ThisList
End Sub
Dim lst_Audits As List
lst_Audits = GetThisList
...
...
End Sub
Sub GetThisList As List
Dim lst_ThisList As List
lst_ThisList.Initialize
lst_ThisList.AddAll( Array As String( "a", "b", "c", "d", "e" ))
Return lst_ThisList
End Sub