Visual Basic - agregar un archivo txt en el ejecutable

tengo un archivo aspx en la carpeta del programa diseñado, cuando inteto abrir el ejecutable me dice que el archivo no se puede abrir.
en el código abro el archivo con Dir1.Path = App.Path , creo una variable y le asigno el nombre del archivo 'nombrearchivo = "teclas.aspx" y la cargo el el form load.
como hago para que visual cargue el archivo al igual que carga una imagen o un sonido.
gracias a quien me pueda ayudar

¿lo que quieres es abrir un archivo aspx en el control internet de visual basic o abrirlo para leer su contenido?

Salu2

gracias por responder. te cuento que es la primera vez que entro a un foro.
Lo que quiero es que en el ejecutable se abra para leer su contenido ya que allí estan guardadas las palabras con las que se ejecutará el juego del AHORCADO.
Es decir, de este archivo salen las palabras que el alumno debe escribir (son los nombre de las teclas de control).
otra vez GRACIAS

pues... con un archivo de recursos que va integrado en el proyecto.

Manolo, soy principiante en visual y no entiendo lo del recurso que va integrado en el proyecto.
me podrías explicar mejor.
GRACIAS

Bueno, sería largo de explicar aquí. Lo mejor es que pinches en la ayuda del VB y en la opción de Búsqueda.. escribes:

"Archivos de recursos"

Encontrarás mucha información

VOY A CONSULTA.R Y LUEGO TE COMENTO COMO ME FUE.
GRACIAS.

Manolo ya agregue el archivo de recurso, el archivo se llama teclas.res y lo cargue en una variable nombrearchivo asi:
nombrearchivo = LoadResData(101, "CUSTOM")
¿Que modificaciones debo hacer en este código para que el archivo abra?

Private Sub cuentalineas()
Dim InFile As Integer
Dim palabra As String
InFile = FreeFile

If Dir(App.Path & "" & nombrearchivo) = "" Then
MsgBox "No se ha encontrado el archivo " & nombrearchivo & ";" & _
" recuerda que se debe llamar " & nombrearchivo & " y que debe estar" & _
" en el mismo directorio ."
End
End If

Open App.Path & "" & nombrearchivo For Input As InFile
While Not EOF(InFile)
Line Input #InFile, palabra
coleccion.Add palabra
Wend
Close InFile

End Sub

Prueba esto, he observado que te falta el delimitador "#" y la forma en que lees.En el resto de codigo no observo nada raro.

Open App.Path & "" & nombrearchivo For Input As #InFile
While Not EOF(InFile)
Input #InFile, palabra
coleccion.Add palabra
Wend
Close #InFile


Salu2

Jose, hice las modificaciones que me dijiste y me sigue reportndo que el archivo no se encuentra. recuerda que
nombrearchivo = LoadResData(101, "CUSTOM")
creo que por allí esta la cosa pero no se que tengo que modificar en la parte de cuentalineas
gracias