¿Que tiene de malo este código?

[HiguaiiN]

Iniciado por franko1809

Claro por esa forma solo es para declarar constantes y este caso seria una variable, asi debe funcionar
dim path as string
path = app.path & "database\......"

Me da el error de ejecucion 75

no se encontro la ruta o archivo.

y la ruta la tengo bien puesta

Aqui el codigo

Código:

'Boton abrir
Private Sub Command1_Click()
    Dim linea As String
    Open path For Input As #1
    While Not EOF(1)
        Line Input #1, linea
        Text1.Text = ""
        If Len(Text1.Text) = 0 Then
            Text1.Text = Text1.Text & linea
        Else
            Text1.Text = Text1.Text & vbNewLine & linea
        End If
    Wend
    Close #1
End Sub

'Boton guardar
Private Sub Command2_Click()
    Open path For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub

Private Sub Form1_Load()
Dim path As String
path = App.path & "\database\new_habbo\hcdays.txt"
End Sub