Dim Variabile as String = "13597368997"
Dim Porzione as String
Dim StartPos as int = 2
Dim EndPos as int = 4
Porzione=Variabile.SubString2(StartPos,EndPos)
' la posizione parte dal valore 0, quindi StartPos = 2 indica il terzo carattere
' la posizione finale è esclusa, EndPos = 4 (quinto carattere) significa fino al carattere precedente
' ovvero alla posizione 3 (o quarto carattere)
' Porzione = "59"