Private Function GetProjects(Optional ProjType As String = "") As String Dim rt$ rt = m_SAClient.GetAllProjects(ProjType) GetProjects = rt End Function