se usi VB6-

codice:
dim strT() as string
dim A as string
dim B as string
dim C as string

strT=Split(LATUAVARIABILE, ";")

A=strT(lbound(strT))
B=strT(lbound(strT)+1)
C=strT(lbound(strT)+2)

erase strT
Dovrebbe andare.