怎么提取文本文件名称

如何提取文本文件名称
请教各位大虾,我利用话框选择了指定目录D:\的一个TXT文件,点击选择后我想在SSPANEL上显示这个文本文件的名称,如何操作
[解决办法]
    Dim m, n As Integer
    Dim j, i As String
    j = CommonDialog1.FileName 
    i = "" 
    For n = 1 To Len(j) 
       m = InStrRev(j, i, -1, 1) 
    Next n
    j = Right(j, Len(j) - m)
取出来，然后截取吧。不知道还有没有更好地方法