【VBA】先頭文字列追加 末尾文字列追加

Function 先頭文字列追加( _
                          ByRef 対象文字列 As String _
                        , ByRef 先頭文字列 As String _
                        , Optional ByRef 既にあれば追加しない As Boolean = True _
                        ) As String
    If 既にあれば追加しない Then
        先頭文字列追加 = IIf(対象文字列 Like "*" & 先頭文字列, 対象文字列, 対象文字列 & 先頭文字列)
    Else
        先頭文字列追加 = 対象文字列 & 先頭文字列
    End If
End Function

Function 末尾文字列追加( _
                          ByRef 対象文字列 As String _
                        , ByRef 末尾文字列 As String _
                        , Optional ByRef 既にあれば追加しない As Boolean = True _
                        ) As String
    If 既にあれば追加しない Then
        末尾文字列追加 = IIf(対象文字列 Like "*" & 末尾文字列, 対象文字列, 対象文字列 & 末尾文字列)
    Else
        末尾文字列追加 = 対象文字列 & 末尾文字列
    End If
End Function