GetResourceContent - Retrieving the content of an embedded text file

' Retrieve the content of an embedded text file
' Note: the file must be included in the project as an embedded resource.
'  - after adding the file to the project set its Build Action property to 
' Embedded Resource
'
' Example: txtScript.Text = GetResourceContent("script.sql")

Function GetResourceContent(ByVal filename As String) As String
    ' get the current assembly
    Dim asm As System.Reflection.[Assembly] = _
        System.Reflection.[Assembly].GetExecutingAssembly()
    ' resources are named using a fully qualified name
    Dim strm As System.IO.Stream = asm.GetManifestResourceStream(asm.GetName() _
        .Name + "." + filename)
    ' read the contents of the embedded file
    Dim reader As New System.IO.StreamReader(strm)
    GetResourceContent = reader.ReadToEnd()
    reader.Close()
End Function