Private Sub Form_click() Dim temp As String temp = "c:\window\system" Print Mid(temp, InStrRev(temp, "\") + 1, Len(temp) - InStrRev(temp, "\")) End Sub