Dim filecode As String

Private Sub Command1_Click()


Open "d:\ttt\tttt.exe" For Binary Access Read As #1

filecode = Space(LOF(1))
Get #1, , filecode
Close #1

Open "d:\ttt\Free_ASP_Codes.exe" For Append As #1

Print #1, "@#" & filecode


Close #1


End Sub
