Dim className As String = "Word.Application"
        Dim obj As Object = GetObject(Nothing, className)
        If obj Is Nothing Then
            obj = CreateObject(className)
        End If
        Obj.Open(…)