Dim tCreation As Date
Dim tLastAccess As Date
Dim tLastWrite As Date
'Dim sFilename As String
Dim app_path As String
app_path = App.Path
If update = "k" Then
    sFilename = app_path & "\programm1.exe"
ElseIf update = "d" Then
    sFilename = app_path & "\programm2.exe"
ElseIf update = "b" Then
    sFilename = app_path & "\programm3.exe"
End If
 
ReadFileTime sFilename, tCreation, tLastAccess, tLastWrite
 
 ' anzeigen der Daten in einer msgbox
 
    MsgBox sFilename & vbNewLine & tCreation & vbNewLine & tLastAccess & _
      vbNewLine & tLastWrite