Get the names of all the members in an active directory group – in VBA

Returns the list of names semicolon deliberated

Function getNamesADGroup(groupname As String) As String
    On Error Resume Next
    Dim ret As String
    Set Group = GetObject("WinNT://" & "corp" & "/" & groupname & ",group")

    For Each Member In Group.Members
        If Len(Member.FullName) Then _
            ret = ret & Member.FullName & ";"
    Next
    On Error GoTo 0
    If Len(ret) Then _
        getNamesADGroup = Left(ret, Len(ret) - 1)
End Function