Få selve filnavnet fra en commondialog

Private Sub Form_Load()
Dim strPath  As String
  strPath = "C:\test1\test2\test.txt"
Me.Caption = Right(strPath, Len(strPath) - InStrRev(strPath, "\")) 'Return = test.txt
End Sub

'InStrRev for vb4-vb5
Public Function InStrRev(StringCheck As String, StringMatch As String, _
                Optional Start As Long = -1, Optional Compare As _
                VbCompareMethod = vbBinaryCompare) As Long
Dim i As Long
  If Compare = vbTextCompare Then
    StringCheck = LCase(StringCheck)
    StringMatch = LCase(StringMatch)
  End If
If Start > -1 And Start > 0 Then StringCheck = Left(StringCheck, Start)
  For i = Len(StringCheck) To 1 Step -1
    If Mid(StringCheck, i, Len(StringMatch)) = StringMatch Then
      Exit For
    End If
  Next
InStrRev = i
End Function

det virker