Try changing
IMG = Mid(Text2.Text, S, (Z - Z))
to
IMG = Mid(Text2.Text, S, (Z - S))