Dim file As String, Datos As String, bytearray() As Byte file = "C:\Users\CENTRAL\Desktop\Anotador.exe"Open file For Binary As #1Datos = Space(LOF(1))Get #1, , DatosClose #1 bytearray() = StrConv(Datos, vbFromUnicode)bytearray(0) = Asc("X")bytearray(1) = Asc("D") Open file For Binary As #1Put #1, 1, bytearray()Close #1