主题：详细错误信息： 无法在流的结尾之外进行读取

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter = "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then

    'Book.Save(dlg.FileName) '保存工作簿

    MessageBox.Show("你要保存为：" & dlg.FileName, "提示") '提示用户选择的文件

    Dim Proc As New Process

    Proc.File = dlg.FileName

    Proc.Start()

End If

这个代码不知道哪里遇到错误