diff --git a/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Interaction.vb b/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Interaction.vb
index a91c6e6d..2186a202 100644
--- a/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Interaction.vb
+++ b/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Interaction.vb
@@ -85,8 +85,8 @@ Namespace Microsoft.VisualBasic
             Return String.Join(" ", Environment.GetCommandLineArgs)
         End Function
         Public Shared Function CreateObject(ByVal ProgId As String, Optional ByVal ServerName As String = "") As Object
-            'TODO: COM
-            Throw New NotImplementedException
+            Dim ObjType as Type = Type.GetTypeFromProgID(ProgId, ServerName)
+            Return Activator.CreateInstance(ObjType)
         End Function
         Public Shared Sub DeleteSetting(ByVal AppName As String, Optional ByVal Section As String = Nothing, Optional ByVal Key As String = Nothing)