Zitat:

Ich hab das Programm testweise nach VB6 (VBA) konvertiert.

Function PaperHeight(sFile)
 
  Dim F As Integer
  Dim nCount As Double
  Dim sBuffer As String
  Dim FileContent As String
  Dim nFilePos As Double
  Dim nSize As Double
  Dim nBytes As Double
  Dim nPos As Double
 
  ' Blockgröße
  Const nBlockSize = 16384
 
  ' Datei im Binary-Mode öffnen
  F = FreeFile
  Open sFile For Binary As #F
 
  ' Datei blockweise auslesen
  nSize = LOF(F)
  nFilePos = 0
  Do While nFilePos < nSize
    nBytes = nBlockSize
    If nFilePos + nBytes > nSize Then nBytes = nSize - nFilePos
 
    ' Inhalt lesen
    sBuffer = Space$(nBytes)
    Get #F, , sBuffer
    FileContent = FileContent + sBuffer
 
    nFilePos = nFilePos + nBytes
  Loop
 
  Close #F
  SpaceCount = 0
  FileLength = Len(FileContent)
  zaehler1 = 1
 
  Do Until Mid(FileContent, zaehler1, 9) = "MediaBox[" Or Mid(FileContent, _
    zaehler1, 10) = "MediaBox ["
  zaehler1 = zaehler1 + 1
  Loop
 
  If Mid(FileContent, zaehler1, 9) = "MediaBox[" Then Ueberspringen = 9
  If Mid(FileContent, zaehler1, 10) = "MediaBox [" Then Ueberspringen = 10
 
  For Zaehler2 = zaehler1 + Ueberspringen To FileLength
 
  If SpaceCount = 3 Then
     If Mid(FileContent, Zaehler2, 1) = "]" Then GoTo Finish:
     PaperHeightString = PaperHeightString + Mid(FileContent, Zaehler2, 1)
     End If
 
  If SpaceCount = 2 Then
     If Mid(FileContent, Zaehler2, 1) = " " Then GoTo Weiter2:
     PaperWidthString = PaperWidthString + Mid(FileContent, Zaehler2, 1)
Weiter2:
     End If
 
  If SpaceCount = 1 Then
     If Mid(FileContent, Zaehler2, 1) = " " Then GoTo Weiter1:
     PaperHeightMinusString = PaperHeightMinusString + Mid(FileContent, _
       Zaehler2, 1)
Weiter1:
     End If
 
  If SpaceCount = 0 Then
     If Mid(FileContent, Zaehler2, 1) = " " Then GoTo Weiter0:
     PaperWidthMinusString = PaperWidthMinusString + Mid(FileContent, Zaehler2, _
       1)
Weiter0:
     End If
 
If Mid(FileContent, Zaehler2, 1) = " " Then SpaceCount = SpaceCount + 1
 
  Next Zaehler2
 
 
Finish:
  PaperHeight = Val(PaperHeightString) - Val(PaperHeightMinusString)
  PaperWidth = Val(PaperWidthString) - Val(PaperWidthMinusString)
 
End Function