Public Sub OutputWorldFile()
  Dim pMxDoc As IMxDocument
  Set pMxDoc = ThisDocument
  Dim pRasterLayer As IRasterLayer
  Set pRasterLayer = pMxDoc.FocusMap.Layer(0)
  Dim pRasterProps As IRasterAnalysisProps
  Set pRasterProps = pRasterLayer.Raster
  Dim pWorldFileExport As IWorldFileExport
  Set pWorldFileExport = pRasterProps.RasterDataset
  ' Output the world file
  pWorldFileExport.Write
End Sub