در مورد آرایه Cities که در تابع Filter (ورودی اول) استفاده شده بهتره در یک ماجول (Module) با سطح دسترسی (Access Level) پروژه ایجاد بشه ...
Dim Cities() As String = EmbedRes.EmbeddedResource.Document("Cities.txt").S  plit(vbNewLine)
Dim StateCities() As String = Filter(Cities, state + ":")
مزیت اصلیش اینه که با اجرای نرم افزار از سند متنی عناصر آرایه فراخوانی می شن و هر بار نیاز به بازسازی اون نیست و مزیت دیگه ای که داره می شه در ماجول کدهای دیگه ازون استفاده کرد....

Module GlobalMembers
Friend Cities() As String = EmbedRes.EmbeddedResource.Document("Cities.txt").S plit(vbNewLine)

'....
End Module