Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open pfad For Binary As #1
Put #1, , buffer()
Close #1

-> Resource löschen -> neu einfügen und speichern, dann gehts wieder ..