Dim strAAArray(4, 4, 4) As String
   Dim strAcids As String = "Phe;Phe;Leu;Leu;Ser;Ser;Ser;Ser;" & _
                            "Tyr;Tyr;Stop;Stop;Cys;Cys;Stop;Trp;" & _
                            "Leu;Leu;Leu;Leu;Pro;Pro;Pro;Pro;" & _
                            "His;His;Gln;Gln;Arg;Arg;Arg;Arg;" & _
                            "Ile;Ile;Ile;Met;Thr;Thr;Thr;Thr;" & _
                            "Asn;Asn;Lys;Lys;Ser;Ser;Arg;Arg;" & _
                            "Val;Val;Val;Val;Ala;Ala;Ala;Ala;" & _
                            "Asp;Asp;Glu;Glu;Gly;Gly;Gly;Gly"