NB: Ti rispondo SOLO perchè mi ha fatto ridere la tua firma :gren:

codice:
Dim MiaStringa() as String
MiaStringa=Split(StringaIntera,":")