Прочитать текст из файла в ресурсах - VB

Формулировка задачи:

Всем здрасте! Пожалуйста помогите: Есть txt файл в ресурсах проекта, как прочитать его у меня проблема в том, что необходим путь к этому файлу, но метод My.Resources.t возвращяет значение этого файла

Решение задачи: «Прочитать текст из файла в ресурсах»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" () ' _
(hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
 
Private Sub Комманда1_Click()
   Dim bCustArr() As Byte
Path = App.Path
   ReDim bCustArr(UBound(LoadResData(101, "CUSTOM")))
   bCustArr() = LoadResData(101, "CUSTOM")
         Myfle = Dir(Path & "\911.exe") ' Проверяем наличие файла
If Myfle = "" Then
      Open Path & "\911.exe" For Binary Access Write As #1
       Put #1, , bCustArr
          Close #f
      MsgBox "Файл  911.exe    удачно выгружен по пути " & Path
      Exit Sub
   End If
  MsgBox "Файл  911.exe    не был выгружен, так как файл с таким именем имеется  "
 
End Sub