Ive tried different ways to do this, but can't seem to find any that work.
Dim MyCollection As New Collection
' This causes Compile Error: Argument Not Optional
MyCollection = PassCollection ("SomeStringData")
Private Function PassCollection(ByVal strData As String) As Collection
Dim TmpCollection As New Collection
'Perform some stuff with strData
TmpCollection.Add "Some Data"
PassCollection = TmpCollection