Attribute VB_Name = "Caop4vb"
Option Explicit

Sub Main()

End Sub