SE VBScript used in SolidEdge Variable table PS

Macro written in VBScript for Solid Edge CAD application
Function MyFunc(x As Double) As Double
MyFunc = x + 1
End Function