Splitter

1 2 3 4 5

s='ACTTGCABC' a=1 while(a<len(s)): print s[a:(a+2)] a=a+3

and

1 2 3 4

Private Sub Replace(commander.Text,zurch.Text,"NAMENAME"+zurch.Text+"NAMENAME") End sub