Private Sub Command1_Click() '开始加1
Timer1.Interval = 1 '
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() '停止加1
Timer1.Enabled = False
End Sub
Private Sub Text1_Change()
If Val(Text1.Text) = n Then
End If
End Sub
Private Sub Text2_Change()
If Val(Text2.Text) = n Then
End If
End Sub
Private Sub Text3_Change()
If Val(Text3.Text) = n Then
End If
End Sub
Private Sub Text4_Change()
If Val(Text4.Text) = n Then
End If
End Sub
Private Sub Text5_Change()
If Val(Text5.Text) = n Then
End If
End Sub
Private Sub Timer1_Timer() '自动加1
Text4.Text = Format(Val(Text4.Text) + 1, "")
End Sub
Private Sub 写入_Click()
写入文本_Click
Else
End If
End Sub
Private Sub 写入文本_Click()
Dim Var
Var = Text1.Text & "." & Text2.Text & "." & Text3.Text & "." & Text4.Text & ":" & Text5
Open App.Path & "\IP.txt" For Append As #1
Print #1, Var
Close #1
End Sub

看了你的代码，代码是一堆的错误。
如果N只是纯粹的判断是否输入的是数字或代表某个IP地址的第几位，也还好办。
五个TEXT又分别是什么呢？IP只有四位啊，为什么要+1呢？
难道是统计IP个数（序号）+IP地址保存在TXT中？如果是这样的话，你完全可以hide啊。
因此，重要的不是代码，而是说出你这段代码的思路。我想，再写出的代码应该是全新的。
如果要我理解你这段代码的意思，就是：新IP地址对照一个固定IP地址，将不同的IP地址以序列号排列方式保存在文本尾中，。

你这代码是什么呀！乱糟糟的，你学没学过VB，会不会用if呀！你敢寄回去看看书，你这代码89%都是废代码，70%是错误代码，你要没学过VB还跑这来丢脸干什么？