Compare String with Strings

[raman]

Hello Expertz

I am using following function to compare two string.But i want to compare String with strings list like:
str1="A"
str2="A,B,C,D"

Public Function CompareString(ByVal str1 As String, ByVal str2 As String) As Boolean
        Dim i As Integer = 0
        For i = 0 To str2.Length - str1.Length
            If str2.Substring(i, str1.Length) = str1 Then
                Return True
            End If
        Next i
        Return False
    End Function
 
Function Calling//
If CompareString(Session("directoratename"), direcgrp) = True Then
flag = 1
Response.Redirect("Client_Menu.aspx?id=" & linkid & "&flag=" & Common.encrypt(flag))
Else
flag = 0
Response.Redirect("Client_Menu.aspx?id=" & linkid & "&flag=" & Common.encrypt(flag))
End If

Please let me how to do this using function.......

Many Thanks
Regards
Raman