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