Dim progId As String = "Scripting.FileSystemObject"
        Dim t As Type = Type.GetTypeFromProgID(progId)
        Dim o As Object = System.Activator.CreateInstance(t)
        ' oder:
        Dim o As Object = Microsoft.VisualBasic.CreateObject(progId)