how could I make a 'if not equal then message box an error' in this part of the program

Private Sub Command1_Click()
MP.FileName = File1.Path + "\" + File1.FileName
MP.Play
End Sub