Hello every one

i have a button to load two .txt files
if user select a file to load for example (test.txt)
automatically another file with the same name followed by the word first should be loaded which well be (testfirst.txt)in this case
THIS FILE SHOULD BE IN THE SAME DIRECTORY


this is my code:
VB Code:
  1. With CommonDialog1
  2.         .CancelError = True
  3.         .Filter = "Text files (*.txt)|*.txt"
  4.         .DialogTitle = "Save the file..."
  5.         .ShowSave
  6.             If .filename <> "" Then
  7.               Form1.RichTextBox1.LoadFile .filename, rtfText
  8.               RichTextBox2.LoadFile Left(.filename, Len(.filename) - 4) & "first.txt", rtfText
  9.              txtFileText.Text = RichTextBox2.Text
  10.             End If
  11.     End With


what i need is that if user selected a file that don't have a partner an error message should appaer

how can do this?
i mean if user select file test.txt and the file testfirst.txt is not there then display error message