Openstaad "Run-time error '61704': Internal Application Error" when running VBA code

Trying to create a simple excel file that will create a new Staad model and adds one new node. When I run the code the new Staad file gets created properly. The very next command is "CreateNode" and this line is where the error "Run-time error '61704': Internal Application Error" occurs. Below is the full code:

Sub Main()
 
'Create an instance of OpenSTAAD file
 
Dim oSTD As OpenSTAAD
 
Set oSTD = GetObject(, "StaadPro.OpenSTAAD")
 
'Geometry;
 
Dim ostdGeometry As OpenSTAADUI.OSGeometryUI
 
Set ostdGeometry = oSTD.Geometry
 
'Window;
 
Dim ostdWindow As OpenSTAADUI.StaadProWindow
 
Set ostdWindow = oSTD.Window
 
'View;
 
Dim ostdView As OpenSTAADUI.OSViewUI
 
Set ostdView = oSTD.View
 
'Output;
 
Dim ostdOut As OpenSTAADUI.OSOutputUI
 
Set ostdOut = oSTD.Output
 
'Property;
 
Dim ostdProperty As OpenSTAADUI.OSPropertyUI
 
Set ostdProperty = oSTD.Property
 
'Load;
 
Dim ostdLoad As OpenSTAADUI.OSLoadUI
 
Set ostdLoad = oSTD.Load
 
'Table;
 
Dim oStdTable As OpenSTAADUI.OSTableUI
 
Set oStdTable = oSTD.Table
 
'Support;
 
Dim oStdSupport As OpenSTAADUI.OSSupportUI
 
Set oStdSupport = oSTD.Support
 
'Command;
 
Dim oStdCommand As OpenSTAADUI.OSCommandsUI
 
Set oStdCommand = oSTD.Command
 
'Design;
 
Dim oStdDesign As OpenSTAADUI.OSDesignUI
 
Set oStdDesign = oSTD.Design
 
oSTD.NewSTAADFile "D:\6.std", 1, 1

ostdGeometry.CreateNode 10, 12, 12, 12
  
Set oSTD = Nothing
 
Set ostdGeometry = Nothing
 
Set ostdWindow = Nothing
 
Set ostdView = Nothing
 
Set ostdOut = Nothing
 
Set ostdProperty = Nothing
 
Set ostdLoad = Nothing
 
Set oStdTable = Nothing
 
Set oStdSupport = Nothing
 
Set oStdCommand = Nothing
 
Set oStdDesign = Nothing
 
End Sub