VB6 Code - Mendapatkan Nama File dari Path Lengkap

Di bawah ini merupakan fungsi VB6 untuk mendapatkan nama file dari path lengkap.

'Fungsi untuk mendapatkan file dari path lengkap:
Public Function GetFileName(FileName As String) As String
    Dim str() As String
    str = Split(FileName, "\")
    GetFileName = str(UBound(str))
End Function

'Contoh fungsi untuk mendapatkan file dari path lengkap:
Private Sub Form_Load()
    MsgBox GetFileName("C:\Program Files\Winamp.exe")
End Sub