This test works for me :
Dim sTempPath = Path.GetTempFileName()
Dim byteFileResources As Byte() = My.Resources.TestResource
My.Computer.FileSystem.WriteAllBytes(sTempPath, byteFileResources, False)
For example, if My.Resources.TestResource is an exe file, it creates a .tmp with the right exe content (if I rename it to .exe, the executable works)