Private Sub Command1_Click()
C.h$= ” AABCDEFGH ”
Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)
E.nd Sub
A.)CDEFGH
B.)ABCD
C.)FG
D.)AB