Visual Basic

Dim fs As New FileStream("C:\Program Files\World of Warcraft\WTF\Account\<accountname>\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 = {"""", ","}
        Dim roundednum As Double

        
        startval = ""

        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
                                    roundednum = aryTextFile(i).Trim(chArr)
                                    If roundednum.ToString.Length = 5 Then
                                        roundednum = roundednum * 0.01
                                        roundednum = Math.Round(roundednum, 0)
                                    Else
                                        roundednum = roundednum * 0.0001
                                        roundednum = Math.Round(roundednum, 0)
                                    End If
                                    'Label11.Text = (aryTextFile(i).Trim(chArr))
                                    Label11.Text = (roundednum)'as a test
                                    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()</accountname>