All pastes #972441 Raw Edit

Anonymous

public text v1 · immutable
·published 2008-04-05 12:46 UTC
rendered paste body
    Private Function nicename(ByVal str As String)
        Dim arr() As String
        arr = Split(str, "\")
        Dim length As Integer
        length = arr.Length
        Return arr(length - 1)
    End Function