Private Sub Command1_Click()
Open "D:\aaa.res" For Output As #1
Open "D:\yyy.TXT" For Input As #2
Dim TEMP As String, I As Long
I = 1
Print #1, , "STRINGTABLE" & vbCrLf & "BEGIN"
Do While Not EOF(2)
Line Input #2, TEMP
Print #1, , 10000 + I & ",""" & TEMP & """"
I = I + 1
Loop
Print #1, , "END"
Close 1
Close 2
Debug.Print "OK"
End Sub