private string BuildUserList(int p_intSendToRoleID)
{
    
    DataSet dstUsers = new DataSet();
    DataRow drwData = default(DataRow);
    string strUserList = null;
    
    try 
    {
        dstUsers = User.GetUsersByRole(p_intSendToRoleID);
        
        foreach ( drwData in dstUsers.Tables(0).Rows) 
        {
            strUserList += (string)(Information.IsDBNull(drwData("Email")) ? "" : Convert.ToString(drwData("Email")) + ";");
        }
        
        return strUserList;
    }
    
    catch (Exception ex) 
    {
        throw;
    }
    
}

 Private Function BuildUserList(ByVal p_intSendToRoleID As Integer) As String
 
        Dim dstUsers As New DataSet
        Dim drwData As DataRow
        Dim strUserList As String
 
        Try
            dstUsers = User.GetUsersByRole(p_intSendToRoleID)
 
            For Each drwData In dstUsers.Tables(0).Rows
                strUserList &= CStr(IIf(IsDBNull(drwData("Email")), "", Convert.ToString(drwData("Email")) & ";"))
            Next
 
            Return strUserList
 
        Catch ex As Exception
            Throw
        End Try
 
    End Function