Option Explicit
 
Private Sub Form_Load()
  Dim Corel As CorelDRAW.Application
  Dim Datei As String, Pos As Long
  Datei = Command
  If Dir(Datei) = "" Then
    MsgBox "Datei nicht gefunden" & vbCrLf & Datei, , "FEHLER"
    GoTo ENDE
  End If
  Me.Show
  Pos = InStrRev(Datei, "\")
  txtAusgabe.Text = "Datei: " & Mid(Left(Datei, Len(Datei) - 3) & "pdf", Pos + _
    1) & " wird erzeugt."
  txtAusgabe.Text = txtAusgabe.Text & vbCrLf & "CorelDraw wird gestartet."
  Set Corel = New CorelDRAW.Application
  Corel.OpenDocument Datei
  txtAusgabe.Text = txtAusgabe.Text & vbCrLf & "PDF-Datei wird erzeugt."
  Corel.ActiveDocument.PublishToPDF Left(Datei, Len(Datei) - 3) & "pdf"
  Corel.ActiveDocument.Close
  Corel.Quit
ENDE:
  Set Corel = Nothing
  Unload Me
End Sub