名前はテケトー。

中身もテケトー。
そしてケンカはからっきし（関係ない。
もっとちゃんと書けばすまぁとになるけど。思いついたままで。

ていうか、二進数と、配列の長さが合わないとどうなるんだろ？ｗｗ

    ''' <summary>


    ''' ビット数値と配列から、ビットONとなっている相対配列の文字列を連結して返しますですよ。

    ''' </summary>

    Function BuildFromBitAndItems(ByVal oBit As Object, ByVal items As String(), ByVal joinString As String) As String
        Dim parseResult As Integer
        If Not Integer.TryParse(oBit.ToString, parseResult) Then
            ' ワケワカメなのは空文字列返してていい？

            Return String.Empty
        End If
        Dim bits As String = Convert.ToString(parseResult, 2)
        Dim pickedItems As New List(Of String)
        Dim lastIndex As Integer = bits.Length - 1
        ' 拾い出す。

        For i As Integer = 0 To bits.Length - 1
            If bits(i) = "1"c Then
                pickedItems.Insert(0, (items(lastIndex - i)))
            End If
        Next
        If pickedItems.Count = 0 Then
            Return String.Empty
        End If
        Dim result As New StringBuilder
        For i As Integer = 0 To pickedItems.Count - 1
            If i = pickedItems.Count - 1 Then
                result.Append(pickedItems(i))
            Else
                result.Append(pickedItems(i))

                result.Append(joinString)
            End If
        Next
        Return result.ToString
    End Function