配列に指定した値がいるか調査 - restinpiece @ ウィキ

'##########################################################################
    ' 配列の値がいるか調べる
    ' 第一引数 値を調査した配列名
    ' 第二引数 調査対象の値
    ' 戻り値　値が見つかればtrue 見つからなければfalse
    '##########################################################################
    Function in_array(ByVal list, ByVal value)
 
        Dim str As String
 
        For Each str In list
 
            If str = value Then
                Return True
            End If
 
        Next str
 
        Return False
 
    End Function