Public Function ExtratFileFromString(ByVal sFile) As String
  Dim nPos As Long
 
  nPos = InStrRev(sFile, "\")
  If nPos > 0 Then sFile = Mid$(sFile, nPos + 1)
  nPos = InStrRev(sFile, ".")
  If nPos > 0 Then sFile = Left$(sFile, nPos - 1)
 
  ExtractFileFromString = sFIle
End Sub

Label3.Caption = ExtractFileFromString(Label3.Caption)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de