Private Sub Command1_Click()
Dim strDateiname As String
Dim strTempName() As String
Dim strNeuerName As String
strDateiname = "C:\Programme\bla\irgendwas\programm.exe"
If InStr(strDateiname, "\") <> 0 Then
strTempName = Split(strDateiname, "\")
strNeuerName = strTempName(UBound(strTempName))
End If
MsgBox strNeuerName
End Sub