Function Get_Text_From_File(strFileName As String) As String
		' Declaring objects
		Dim objFile         As File
		Dim objStreamReader As StreamReader
		Dim strFileContents As String

        objStreamReader = objFile.OpenText(strFileName)

		' Read entire file
		strFileContents = objStreamReader.ReadToEnd()

                ' Closing StreamReader object
		objStreamReader.Close()
		GetTextFromFile = strFileContents
	End Function