Podrías hacer algo como esto.
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal L As Long)
Private Sub Form_Load()
Dim file As String
Dim datos() As Byte
file = "C:\Users\Pink\Desktop\1.txt" 'tu archivo a cargar
Open file For Binary As #1
ReDim datos(LOF(1) - 1) ' LOF(1) - 1 numero de offset de tu archivo
Get #1, , datos ' obtenemos tu archivo en un array de byte
Close #1
'aqui seria el numero del offset
'datos(0) = offset 0
Call CopyMemory(datos(0), Asc("h"), 1) ' aqui copiamos la letra h a nuestro offset 0 1 byte
'si quieres copiar 30 bytes seria algo asi
'Dim bytes2() As Byte
'bytes2() = StrConv("XXXXXXXXXXXXXXXXXXXXXXXXXXXX", vbFromUnicode)
'Call CopyMemory(datos(0), bytes2(0), 30)
Open file For Binary As #1
Put #1, , datos
Close #1
End Sub
saludos
Autor
En línea
