Как извлечь из программы ресурс - VB

sub main()
  UnpackResource 101, "1.txt"
end sub
 
Sub UnpackResource(ResourceID As Long, DestinationPath As String)   ' Распаковка ресурсов
    Dim ff      As Integer
    Dim b()     As Byte
    b = LoadResData(ResourceID, "CUSTOM")
    ff = FreeFile
    Open DestinationPath For Binary Access Write As #ff
        Put #ff, , b
    Close #ff
End Sub