Dim file As New FileInfo(TextBox2.Text)
        Dim sizeInBytes As Long = file.Length
        Dim pos As Long = (sizeInBytes - (sizeInBytes / 4))

        Using sr As New StreamReader(TextBox2.Text, System.Text.Encoding.ASCII)
            sr.BaseStream.Seek((pos * -1), SeekOrigin.End)

            ''''''''''''''''''''''''''Fetch CombatLogNames''''''''''''''''''''''''''
            Do Until sr.EndOfStream = True                                                                          
                Dim streambuff As String = sr.ReadLine                                                              
                Dim CombatLogNames() As String
                Dim searcher As String

                 If streambuff.Contains("CombatLogNames flags:0x1") Then                                             

                    Dim check As String = streambuff                                                                
                    Dim index1 As Char = check.Substring(check.IndexOf("(") + 1)                                    
                    Dim index2 As Char = check.Substring(check.IndexOf("(") + 2)                                    
                    If (check.IndexOf("(") <> -1 And index1 <> "" And index2 <> " ") Then                           

                        Dim endCLN As Integer = 0                                                                   
                        Dim x As Integer = 0                                                                        

                        While (endCLN = 0 And streambuff <> "---- CNETMsg_Tick")                                    

                            streambuff = sr.ReadLine                                                                
                            If ((streambuff.Contains("---- CNETMsg_Tick") = True) Or 	(streambuff.Contains("ResponseKeys flags:0x0 ") = True)) Then

                                endCLN = 1                                                                          

                            Else

                                ReDim Preserve CombatLogNames(x)                                                    
                                'CombatLogNames(x) = streambuff.Trim.Remove(streambuff.IndexOf("(") - 5).Remove(0, _
                                'streambuff.Trim.Remove(streambuff.IndexOf("(")).IndexOf("'"))     
                                searcher = streambuff.Trim.Remove(streambuff.IndexOf("(") - 5).Remove(0, _
                                streambuff.Trim.Remove(streambuff.IndexOf("(")).IndexOf("'"))                       
                                CombatLogNames(x) = search(searcher)
                                x += 1                                                                              

                            End If
                        End While
                    Else
                        'MsgBox("Something went wrong, Flame the coder of this program!!")                          
                    End If
                Else
                End If

                If (sr.EndOfStream = True) Then

                    ReDim GlobalArr(CombatLogNames.Length - 1)                                                      
                    Array.Copy(CombatLogNames, GlobalArr, CombatLogNames.Length)                                    

                End If
            Loop

            ''''''''''''''''''''''''''Fetch CombatLogNames''''''''''''''''''''''''''
            sr.Close()
        End Using