困惑我N天的，问题终于解决了，哭了，，呜呜 ~~~
Dim fname As String
Private Sub command1_click()
 Dim v
 Dim byt() As Byte
 fname = "c:\wang\rar.exe"
 If Dir(fname) = "" Then
 v = LoadResData(101, "CUSTOM")
 byt = v
 Open fname For Binary As #1
 Put #1, 1, byt()
 Close #1
 End If
End Sub

注：严重感谢VB吧的'CBM666'老师，与'后代'同志!