' ...
  Dim XSLT As Object, StyleSheet As Variant
  Set XSLT = CreateObject("Viper.XSLTransform")
  StyleSheet = "http://xsl.tmp.de/Jobpilot.de/tmpw-1.0.xsl"
  If XSLT.LoadTemplate(StyleSheet) Then
    XSLT.TransformFile tempFilename, tempFilename & ".tmp"
    ' ...