open문 오류가 뜨네요... 해결가능하신 분있으신가요?

Private Sub Form_Resize()
Form2.WindowState = 2
Picture1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
Picture2.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
Picture3.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End SubPrivate Sub Label1_Click()
Picture2.Visible = False
Timer1.Enabled = True
End SubPrivate Sub Label2_Click()
Picture3.Visible = FalseDim Temp As String
Temp = Text1.Text & vbCrLf & Text2.Text
Open App.Path & \1.txt For Output As #1
Print #1, Temp;
Close #1End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13& Then
KeyAscii = 0&
Label1_Click
End If
End SubPrivate Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13& Then
KeyAscii = 0&
Label2_Click
End If
End SubPrivate Sub Timer1_Timer()
Picture2.Visible = True
Picture3.Visible = True
End
End Sub
보라색으로 색칠된곳이 오류가 뜨네요...