オブジェクト生成、削除の共通関数

Option Explicit
' オブジェクト生成
Sub objSet(ByRef obj As Object, strType As String)
    Set obj = CreateObject(strType)
End Sub
' オブジェクト廃棄
Sub objUnSet(ByRef obj As Object)
    Set obj = Nothing
End Sub