Dim targetDir As String = "C:\tmp" Dim resourceName As String = "TEST" Dim fileName As String = "TEST2.xls"
Dim r As Object = My.Resources.ResourceManager.GetObject(resourceName) My.Computer.FileSystem.WriteAllBytes(System.IO.Path.Combine(targetDir, fileName), DirectCast(r, Byte()), False)