现在有两个文件：一个文本文件，一个数据文件。

文本文件（temp.txt）里的内容如下：
02 6D 00 00
02 6D 00 00
02 6D 00 00
02 6D 00 00
02 6D 00 00
02 6D 00 00
02 6D 00 00
        .
        .
        .
        .
        .
        .


数据文件（001.OB3635A-HSA002-1）里的内容为十六进制数据，

现在想把文本文件里的内容（已是16进制数据）逐条添加到数据文件最后，不知道这段程序怎么写。

我学着写文本文件方式写了一段，运行后好像不对，数据文件（001.OB3635A-HSA002-1）尾部并没有增加文本文件（temp2.txt）里的内容。

Private Sub Command2_Click()
Dim tmp2
Open Dir1.Path & "\temp2.txt" For Input As #1
        Do While Not EOF(1)
        Line Input #1, temp1
                 tmp2 = Split(temp1, " ")
Open Dir1.Path & "001.OB3635A-HSA002-1" For Binary As #2
Put #2, , tmp2(0)
Put #2, , tmp2(1)
Put #2, , tmp2(2)
Put #2, , tmp2(3)
Close #2
Loop
Close #1
End Sub

恳求各位大大给段程序。

谢谢xzlxzlxzl版主，
求具体写法。

同求各位路过的大大看看，帮忙告知这段程序怎么写，谢谢！