Yardımcı Olabilirsiniz Sevinirim (Çaprazlama PROG)

Arkadaşlar dönem ödevime ilave olarak yapmak istedim. Düşündüm  ama bi türlü işe yarar şeyler elde edemedim.
örneğin text girilen {örnek: Aa} gibi bir şey başka text girline {örnek:Bb} 
gibi verileri çarpazlamınıs istiyorum Yani mendel çaprazlamasını [monhibrit ] istiyorum
Bana bunn için kaynak veya örnek kod verebilecek arkadaşlarım varsa şimdiden tesekkür ediyorum.

Çaprazlama örnek

Aa x Bb
AB Ab aB ab gibi
LÜTFEN YARDIMCI OLUNUZ...

Dim a As Char = TextBox1.Text.Chars(0)
        Dim b As Char = TextBox1.Text.Chars(1)
        Dim c As Char = TextBox2.Text.Chars(0)
        Dim d As Char = TextBox2.Text.Chars(1)
        Label1.Text = a & c & " " & a & d & " " & b & c & " " & b & d

print "1. kümeyi girinz";a$
print "2. kümeyi giriniz";b$
for say=1 to len(a$)
for say2=1 to len (b$)
print mid$(a$,say,1)&mid$(b$,say2,1)
next sayt2
next say