caratteri di una stringa

[sms]

come faccio a prendere i primi 2 caratteri e gli ultimi 4 caratteri di una stringa?

grazie!

[zampa28]

per i primi 2

Dim Str1, Str2 as String
Str1 = "Pippo"
Str2=Mid(str1, 1, 2) 'restituisce "Pi"

Per gli ultimi 4

Dim Str1, Str2 as String
Str1 = "Pippo"
Str2=Right(str1, 4) 'restituisce "ippo"