Assume that a Resource file has a Custom Resource with the Id set to Hello. Can someone please explain me what does the following code do?

Code:
Dim b() As Byte
Open App.Path & "\Hello.gif" For Binary Access Write As #1
    b = LoadResData("Hello", "Custom")
    Put #1, , b
Close #1