Private Sub Command1_Click()
删除 (Int(Text1.Text))
公告板.读取
MsgBox "删除成功", , "删除公告"
End Sub

Public Function 删除(del As Integer)
If del < 0 Or del > amount Then
MsgBox "编号有误", , "删除公告"
Exit Function
End If
Do While del <= amount'出错部分
Text(del) = Text(del + 1)
del = del + 1
Loop'部分结束，会直接从下方开始继续执行
Kill App.Path & "\data\text\" & amount & ".txt"
amount = amount - 1
Open App.Path & "\data\text\amount.txt" For Output As #1
Write #1, amount
Do While i < amount
i = i + 1
Open App.Path & "\data\text\" & i & ".txt" For Output As #2
Write #2, Text(i)
Close #2
Loop
Close #1
End Function

以上为局部代码，更多详见蓝奏源代码 报错完整源代码