Private Sub Form_Load() Dim Path As String Path = "c:\windows\media\tada.wav" MsgBox Path Path = StrReverse(Split(StrReverse(Path), "\")(0)) MsgBox Path End Sub ''''''''sunasoft@hotmail.com ''''''''www.sezginweb.com