Tách lấy tên ProjectName từ link file

[tuhocvba]

'INPUT: aaaa_Project_PrjNm.xlsx
'OUTPUT: PrjNm
Function GetProjectName(ByVal InputString As String) As String
    Dim InputString     As String
    Dim OutputString    As String
    Dim LastUnderscore  As Integer
    
    'InputString = "aaaa_Project_PrjNm.xlsx"
    

    LastUnderscore = InStrRev(InputString, "_")
    

    If LastUnderscore > 0 Then

        OutputString = Mid(InputString, LastUnderscore + 1)
        
    Else
        OutputString = ""
    End If
    
    GetProjectName = OutputString
End Function