Public Function FromPDFTimeString _
     (ByVal PDFTimeString As String) As String
 
  Dim outstring As String = "" 'Rückgabe
  Dim fmt As String = "yyyyMMddHHmmss" 'PDF Zeitformat
  Dim dtm As Date, timezoneadj As Integer
 
  Try
     Dim ts As String = PDFTimeString.Substring(2, 14)
 
     If Date.TryParseExact(ts, fmt, Globalization.CultureInfo.InvariantCulture, _
                     Globalization.DateTimeStyles.AdjustToUniversal, dtm) Then
        'Zeitzonenkorrektur (falls zweckmäßig) 
        If Integer.TryParse(PDFTimeString.Substring(16, 3), timezoneadj) Then
           dtm = dtm.AddHours(CDbl(timezoneadj))
           outstring = dtm.ToString("dd.MM.yyyy HH:mm:ss")
        End If
     End If
 
  Catch
     'was auch immer
  End Try
 
  Return outstring
End Function