.NET (Core and Framework)

public partial class TextFieldParser
{
    public TextFieldParser()
    {
    }

    public string[] ParseFields(string text)
    {
        string[] parts = text.Split(',');

        List<string> newParts = new List<string>();
        bool inQuotes = false;
        string currentPart = string.Empty;

        for (int i = 0; i < parts.Length; i++) 
        {
            string part = parts[i];
            inQuotes = (inQuotes || part.StartsWith("\""));
            if (inQuotes)
            {
                currentPart = (string.IsNullOrEmpty(currentPart))? part : string.Format("{0},{1}", currentPart, part);
            }
            else
            {
                currentPart = part;
            }
            inQuotes = (inQuotes && !part.EndsWith("\""));
            if (!inQuotes)
            {
                currentPart = currentPart.Replace("\"", "");
                newParts.Add(currentPart);
                currentPart = string.Empty;
            }
        }

        return newParts.ToArray();
    }
}

    Dim RootDSE As String
    Dim DSESearcher As DirectorySearcher = New System.DirectoryServices.DirectorySearcher
    Try
        RootDSE = DSESearcher.SearchRoot.Path
        RootDSE = RootDSE.Insert(7, Utility.ADUsersPath & ",")
        Dim myDE As DirectoryEntry = New DirectoryEntry(RootDSE)
        Dim myEntries As DirectoryEntries = myDE.Children
        Dim myDirectoryEntry As DirectoryEntry = myEntries.Add("CN=" + DisplayName, "user")
        Utility.SetProperty(myDirectoryEntry, "givenName", FirstName)
        Utility.SetProperty(myDirectoryEntry, "initials", MiddleInitial)
        Utility.SetProperty(myDirectoryEntry, "sn", LastName)
        Utility.SetProperty(myDirectoryEntry, "displayName", DisplayName)
        If UserPrincipalName <> "" Then
            Utility.SetProperty(myDirectoryEntry, "UserPrincipalName", UserPrincipalName)
        Else
            Utility.SetProperty(myDirectoryEntry, "UserPrincipalName", UserName)
        End If
        Utility.SetProperty(myDirectoryEntry, "PostalAddress", PostalAddress)
        Utility.SetProperty(myDirectoryEntry, "StreetAddress", MailingAddress)
        Utility.SetProperty(myDirectoryEntry, "HomePostalAddress", ResidentialAddress)
        Utility.SetProperty(myDirectoryEntry, "Title", Title)
        Utility.SetProperty(myDirectoryEntry, "HomePhone", HomePhone)
        Utility.SetProperty(myDirectoryEntry, "TelephoneNumber", OfficePhone)
        Utility.SetProperty(myDirectoryEntry, "Mobile", Mobile)
        Utility.SetProperty(myDirectoryEntry, "FacsimileTelephoneNumber", Fax)
        Utility.SetProperty(myDirectoryEntry, "mail", Email)
        Utility.SetProperty(myDirectoryEntry, "Url", Url)
        Utility.SetProperty(myDirectoryEntry, "sAMAccountName", UserName)
        Utility.SetProperty(myDirectoryEntry, "UserPassword", Password)
        Utility.SetProperty(myDirectoryEntry, "description", Description)
        'Utility.SetProperty(myDirectoryEntry, "homeDrive", HomeDrive)
        'Utility.SetProperty(myDirectoryEntry, "homeDirecrtory", HomeDirectory)
        Utility.SetProperty(myDirectoryEntry, "scriptPath", ScriptPath)
        myDirectoryEntry.Properties("userAccountControl").Value = Utility.UserStatus.Enable
        ''1ST COMMIT VALIDATES AGAINST USERNAME AND DISPLAY NAME RESPECTIVELY
        myDirectoryEntry.CommitChanges()

        SetMember(DisplayName, MemberOF)
        ''USE DISPLAY: USERNAME FAIL WHEN CREATING PASSWORD
        myDirectoryEntry = GetUser(DisplayName)
        Utility.SetUserPassword(myDirectoryEntry, Password)
        myDirectoryEntry.Properties("userAccountControl").Value = Utility.ADAccountOptions.UF_DONT_EXPIRE_PASSWD
        myDirectoryEntry.CommitChanges()
        myDirectoryEntry.Properties("userAccountControl").Value = Utility.ADAccountOptions.UF_PASSWD_CANT_CHANGE
        myDirectoryEntry.CommitChanges()
        Return myDirectoryEntry
    Catch ex As Exception
        If Not ex.InnerException Is Nothing Then
            MsgBox(ex.InnerException.Message)
        End If
        'Throw New Exception(ex.Message)
        MsgBox(ex.Message)
        Throw ex
    End Try
End Function

Private Function SetMember(ByVal DisplayName As String, ByVal memberOF As String) As Integer
    Dim RootDSE As String
    Dim DSESearcher As DirectorySearcher = New System.DirectoryServices.DirectorySearcher
    RootDSE = DSESearcher.SearchRoot.Path
    RootDSE = RootDSE.Insert(7, Utility.ADUsersPath & ",")

    Dim myDE As DirectoryEntry = New DirectoryEntry(RootDSE)
    Dim myEntries As DirectoryEntries = myDE.Children

    Try
        'For Each thisGroup As [String] In memberOF
        Dim myParent As DirectoryEntries = myDE.Parent.Children
        Dim newGroup As DirectoryEntry = myParent.Find("CN=" + memberOF, "group")

        If newGroup IsNot Nothing Then
            Dim myDirectoryEntry As DirectoryEntry = myEntries.Add("CN=" + DisplayName, "user")
            newGroup.Invoke("Add", New Object() {myDirectoryEntry.Path.ToString()})
            myDirectoryEntry.CommitChanges()
            newGroup.Close()
        End If
        'Next
    Catch ex As Exception
        If Not ex.InnerException Is Nothing Then
            MsgBox(ex.InnerException.Message)
        End If
        'Throw New Exception(ex.Message)
        MsgBox(ex.Message)
    End Try

End Function