Public Sub ReadCSV()
Dim line As String
        Dim sr As New StreamReader("c:\text.txt", System.Text.Encoding.Default)
        Dim counter As Integer
 
Do
            line = sr.ReadLine
            SplitString(line)
            ReDim Preserve EasyArr(2, counter)
            Arr(0, counter) = Name
            Arr(1, counter) = User
            Arr(2, counter) = Group
            counter = counter + 1
Loop Until sr.EndOfStream
 
End Sub
 
Public Sub SplitString(ByVal ExtractionString As String)
        Dim rgx As New Regex("^(?<User>.*);(?<Name>.*);(?<Group>.*)$")
        If rgx.IsMatch(ExtractionString) = True Then
            Name = rgx.Match(ExtractionString).Result("${Name}")
            User = rgx.Match(ExtractionString).Result("${User}")
            Group = rgx.Match(ExtractionString).Result("${Group}")
        End If
    End Sub