Private Sub Form_Load()
Open App.Path & "\test27.txt" For Input As #1
Open App.Path & "\result27.txt" For Output As #2
Do While Not EOF(1)
Input #1, n
If n = 0 Then Exit Do
Input #1, a, b
For i = 1 To n - 1
Input #1, a1, b1
If b = b1 Then
a = a + a1 ...