请查找这段实现文件读写功能的VB.NET代码中存在的错误

以下是你提交的代码中存在的可运行错误与不规范问题：

• 数组未初始化赋值即访问：全局变量astSpecies()仅声明未分配长度，在Button2_Click中直接对astSpecies(i)赋值会触发索引超出范围异常，你可以在读取文件前先确定行数或者动态扩容数组，更简单的方案是直接用astSpecies = File.ReadAllLines("文件路径")一次性读取所有行到数组。
• 循环索引越界：Button3_Click中的循环条件为o <= astSpecies.Length，VB.NET数组索引从0开始，合法索引范围是0 ~ astSpecies.Length - 1，等于Length时已经超出数组范围，会触发索引越界异常，需要修改为o < astSpecies.Length。
• 硬编码路径兼容性问题：代码中固定写死C:\Users\Administrator\Documents路径，当运行电脑的登录用户不是Administrator、或者系统修改了我的文档默认路径时，会直接触发路径不存在异常，建议改用Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)动态获取我的文档路径，再拼接文件名。
• 资源未安全释放：StreamWriter、StreamReader均使用手动Close()的方式释放资源，如果读写过程中出现异常，Close()不会执行，会导致文件被持续占用无法操作，建议用Using语句包裹读写逻辑，退出代码块时会自动释放资源，无需手动调用Close()。
• 逻辑顺序风险：如果用户未点击Button2直接点击Button3，astSpecies还是未初始化的空数组，访问astSpecies.Length会触发空引用异常，需要在Button3逻辑开头加判断数组是否为Nothing的校验。
• Append参数不符合预期：Button1中初始化StreamWriter时第二个参数传了True，代表每次点击Button1都会在原有species1.txt末尾追加内容，而不是覆盖生成新文件，多次点击后文件内容会重复，如果你期望每次点击都生成全新的物种列表，需要把该参数改为False。
• 变量未显式初始化：Button2_Click中的i、Button3_Click中的o都没有显式赋值初始值，虽然VB.NET中Integer类型默认值为0，但不符合代码规范，也容易在后续修改逻辑时出现隐性错误，建议显式写为Dim i As Integer = 0、Dim o As Integer = 0。
• 缺少异常处理：代码没有任何异常捕获逻辑，出现文件被占用、读写权限不足、路径不存在等问题时会直接触发未处理异常，导致程序崩溃。

内容的提问来源于stack exchange，提问作者FireBall_92