【VBA】関数のひな形

'#######################################
'ひな形 Sub
'【概要】
'       ひな形です
'【引数】
'            aaaaaaaa                   ：
'   [省略可] bbbbbbb                    ：
'#######################################
Sub ひな形_S( _
                       ByRef aaaaaaaa As Variant _
            , Optional ByRef bbbbbbb As Variant _
        )
    On Error GoTo Catch
    
    
    
    GoTo Finally
Catch:
    Debug.Print "■エラー【ひな形_S】" & vbCrLf & Err.Number & vbTab & Err.Description
    MsgBox "エラーが発生しました", , "エラー"
Finally:
End Sub

'#######################################
'ひな形 Function
'【概要】
'       ひな形です
'【引数】
'            aaaaaaaa                   ：
'   [省略可] bbbbbbb                    ：
'【戻り値】
'            Boolean                    ：True：正常終了   False：異常終了
'#######################################
Function ひな形_F( _
                       ByRef aaaaaaaa As Variant _
            , Optional ByRef bbbbbbb As Variant _
        ) As Boolean
    On Error GoTo Catch
    
    
    ひな形_F = True
    
    GoTo Finally
Catch:
    ひな形_F = False
    Debug.Print "■エラー【ひな形_F】" & vbCrLf & Err.Number & vbTab & Err.Description
    MsgBox "エラーが発生しました", , "エラー"
Finally:
End Function