Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6. Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты. Читайте требования к создаваемым темам.
Dim a() As Byte
Dim fn As Integer
a() = LoadResData(101, "CUSTOM")
fn = FreeFile
Open "C:\1.xls" For Binary Access Write As fn
Put #fn, , a()
Close #fn