数据子字符串未显示完整值

Question

我的代码应显示32个字符，但它只显示7.这是我目前的代码：

Imports System.IO

Public Class Form1

    Private Property sr As Object

    Private Sub BrowseBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseBtn.Click

        OpenFileDialog.ShowDialog()

        FilePathLabel.Text = OpenFileDialog.FileName

    End Sub

    Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click

        Dim sr As StreamReader = New StreamReader(OpenFileDialog.FileName)

        Dim data = sr.ReadToEnd()

        Dim pos = data.IndexOfAny("LASTSAVE")
        If pos >= 0 Then

        End If

        CatiaVersionLabel.Text = data.Substring(pos, 32)

    End Sub

End Class

不太清楚为什么要这样做，因为当我独立打开它时，需要找到的文字就在那里。