Cómo reemplazar una letra con otra letra en programación VB.

para i=1 a len(text1.text)

si mid(text1.text, i, 1)="A" entonces

resultado= resultado "U"

elseif mid(text1.text,i,1)="G"

resultado=resultado "C"

elseif mid(text1 .text，i，1)="C"

resultado=resultado "G"

elseif mid(text1.text，i，1)="T"

resultado=resultado "A"

finaliza si

siguiente i

PD: esta pregunta también se puede modificar usando seleccionar mayúsculas y minúsculas, y el código ser más simple