Hi,

This Bioperl script using the Eutilities module gives you the vector base ID for a given accession number, you could create a loop to automate this for multiple accession numbers:

use Bio::DB::EUtilities;
use Bio::SeqIO;

my @ids = qw(XM_001656826.1);

my $factory = Bio::DB::EUtilities->new(-eutil   => 'efetch',
                                       -db      => 'protein',
                                       -rettype => 'gb',
                                       -email   => 'mymail@foo.bar',
                                       -id      => \@ids);

my $file = 'myseqs.gb';

$factory->get_Response(-file => $file);

my $seqin = Bio::SeqIO->new(-file   => $file,
                            -format => 'genbank');

while (my $seq = $seqin->next_seq) {
 print $seq->id();
 for my $feat_object ($seq->get_SeqFeatures) {          
   if ($feat_object->primary_tag=~/CDS/){
     for my $tag ($feat_object->get_all_tags) {             
        if ($tag=~/db_xref/){            
        for my $value ($feat_object->get_tag_values($tag)) {                
           if ($value=~/VectorBase/){
             print "\t$value"
           }
        }     
      }     
     }  
   }     
  }
}