Visual Basic

Dim fs As New FileStream("C:\Program Files\World of Warcraft\WTF\Account\<account name="">\SavedVariables\Auc-Stat-Simple.lua", FileMode.Open)
      Dim sr As New StreamReader(fs)
      Dim intcounter As Integer
      Dim line As String = ""
      Dim count As Integer
      Dim LineOfText As String
      Dim i As Integer
      Dim aryTextFile() As String
      Dim startval As String
      Dim chArr() As Char = {"""", ","}


      startval = "[2449] = ""0:"
      Try

          Do
              line = sr.ReadLine()
              If line IsNot Nothing Then
                  If line.Contains(startval) Then
                      intcounter = intcounter + 1
                      If intcounter = 1 Then
                          LineOfText = line
                          aryTextFile = LineOfText.Split(";".ToCharArray)
                          For i = 0 To UBound(aryTextFile)
                              count = count + 1
                              If count = 6 Then


                                  Label11.Text = (aryTextFile(i).Trim(chArr))
                                  count = 0


                              End If
                          Next i
                          'Label11.Text = line
                      End If
                  End If
              End If
          Loop While line IsNot Nothing
      Catch a As Exception
          Label11.Text = "Not Found"
      End Try

      sr.Close()</account>