Attribute VB_Name = "Module1"

Sub Main()

End Sub

Function add(ByVal x As Long) As Long
    add = x + 1
End Function