選択範囲を連結文字でつなぐ関数

Public Function strRenketu(ByVal 連結文字 As String, ByVal 選択範囲 As Range, Optional ByVal 空白を連結する As Boolean = False) As String
     Dim i As Long
     Dim strReturn As String
     Dim flgFirst As Boolean
     Dim data As Range
     flgFirst = True
     For Each data In 選択範囲  'For Each でループ処理
        If 空白を連結する = False Then
            If data.Cells.Value <> "" Then
                If flgFirst = True Then
                    flgFirst = False
                    strReturn = data.Cells.Value
                Else
                    strReturn = strReturn & 連結文字 & data.Cells.Value
                End If
            End If
         Else
             If flgFirst = True Then
                 flgFirst = False
                 strReturn = data.Cells.Value
             Else
                 strReturn = strReturn & 連結文字 & data.Cells.Value
             End If
         End If
     Next data
     strRenketu = strReturn
 End Function