Änderungsdatum aus word in excel übernehmen

Sub DateiVersionsInfoLesen()
  
  Const c_DateiVersMitschr As String = c:\VersionsMitschrift.txt
  
  Dim v As Version, l_version As Long, s_Kommentar As String
  Dim s_Datum As String, s_Uhrzeit As String, s_Author As String
  Dim s_Dateiname As String, s_Dateipath As String
  Dim s_tmp As String, s_tmp2 As String, b_exist As Boolean
  Dim i_Dateinummer As Integer, l_schreibversuch As Long, x As Long
  
  s_Dateipath = ActiveDocument.Path
  s_Dateiname = ActiveDocument.Name
  
 ->letzte Versionsinformation auslesen
  l_version = ActiveDocument.Versions.Count
 ->wenn keine Versionen vorhanden sind -> Ende
  If l_version = 0 Then Exit Sub
  Set v = ActiveDocument.Versions(l_version)
  s_Datum = Format(v.Date, dd.mm.yyyy)
  s_Uhrzeit = Format(v.Date, hh:nn:ss)
  s_Author = v.SavedBy
  s_Kommentar = v.Comment
  Set v = Nothing
  
  s_tmp = _
    Dateiname:  & s_Dateiname & vbCrLf & _
    Dateipfad:  & s_Dateipath & vbCrLf & _
    VersionNr:  & l_version & vbCrLf & _
    Speicherdatum:  & s_Datum & vbCrLf & _
    SpeicherUhrzeit:  & s_Uhrzeit & vbCrLf & _
    Gespeichert von:  & s_Author & vbCrLf & _
    Kommentar:  & s_Kommentar
  MsgBox (s_tmp)
End Sub