چگونگي بدست آوردن نام فايل

سلام دوستان
چطوري مي تونم با استفاده از common dialog فقط نام فايل را به دست آورم چون با استفاده از دستور
commondialog1.filename
نام فايل همراه با مسير فايل بدست مي‌آيد كه من فقط نام فايل را مي خوام بدست بيارم
لطفا راهنمايي نماييد.

کد:

---

Private Sub Command1_Click()
Form1.CommonDialog1.ShowOpen
str_path$ = Form1.CommonDialog1.FileName
Me.Caption = Mid(str_path, InStrRev(str_path, "\") + 1)
End Sub

---

این یک نمونه

majj ممنون از لطف جنابعالي دست درد نكنه كارت درسته