Please try to fix this!

[Asaf_99]

I have this:

Private Sub mnuLoad_Click()
lstDeck.Clear
Open App.Path & "\Decks\" & txtTitle.Text & ".dck" For Input As #1
    Do While Not EOF(1)
        Line Input #1, tmp
        lstDeck.AddItem tmp
    Loop
Close #1
stbStatus.Panels(2).Text = "Cards In Deck: " & lstDeck.ListCount
End Sub

I want to do that whenever the app detects that the file written on txtTitle does not exist, it will show me a message box and not terminate the app.

Could you please modify this code and not using Text1. etc. because I get confused.

Every help will be appriciated.