Public Function GetTempFilePath(ByVal ext As String) As String 
    Dim randomFileName As String = System.IO.Path.GetRandomFileName() 
    Dim tempFolder As String = System.IO.Path.GetTempPath() 
    randomFileName = System.IO.Path.Combine(tempFolder, randomFileName) 
    randomFileName = System.IO.Path.ChangeExtension(randomFileName, ext) 
    Return randomFileName 
End Function 
Public Sub DoConversion(ByVal src As String, ByVal dst As String) 
    On Error Resume Next 
    Dim w As Object = System.Activator.CreateInstance(System.Type.GetTypeFromProgID("Word.Application")) 
    Dim d 
    d = w.Documents.Open(src) 
    d.SaveAs(dst, 0) 
    d.Close() 
    w = Nothing 

End Sub 
Public Sub Run(ByVal context As Office2PDF.Scripting.ScriptContext) 
    Dim src As String = context.FilePath 
    Dim tmpDst As String = GetTempFilePath("doc") 

    context.SkipConversion = True 
    context.DestinationFile = tmpDst 
    context.DestinationFileExt = "doc" 

    DoConversion(src, tmpDst) 
    ' if error, set the context.Error = True, and context.ErrorDescription = "error descr." 
End Sub