I have defined a variable with an own type, say
Dim point As DataPoint Public Type DataPoint list as Collection name as String number as Integer End Ty
One-liner:
Function resetDataPoint() As DataPoint: End Function
Usage:
point = resetDataPoint()