Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim EndPosition As Integer = My.Computer.FileSystem.ReadAllText( _
        "d:\test.txt").Length
        MsgBox(EndPosition)
    End Sub