[Help]post counter?

 Public Function rb(ByVal readfrom As String, ByVal startstring As String, ByVal str1 As String, ByVal str2 As String)
        Dim writeto As String
        Dim s As New MemoryStream(Encoding.ASCII.GetBytes(readfrom))

        Dim reader As New IO.StreamReader(s)

        While Not reader.EndOfStream

            writeto = reader.ReadLine()

            If writeto.StartsWith(startstring) Then

                Dim x1 As Integer = writeto. IndexOf(str1) + (str1.Length + 1)
                Dim x2 As Integer = writeto. IndexOf(str2, x1) + 1

                Dim result As String = Mid(writeto, x1, x2 - x1)

                Return result

            End If


        End While

    End Function

    Public Function Sb(ByVal text As String, ByVal startstring As String, ByVal endstring As String) 'string between
        Dim part1() As String = Split(text, startstring)

        If UBound(part1) > 0 Then
            Dim part2() As String = Split(part1(1), endstring)

            If UBound(part2) > 0 Then
                Return part2(0)
            Else
                Return -2
            End If
        Else
            Return -1
        End If
    End Function