Status di un whois

[jet]

Dim ArrayStringhe() as string = objSR.ReadToEnd().Split("Created")

Dim cod1=ArrayStringhe(0)
Dim cod2=ArrayStringhe(1)
Dim result = cod1

Dove result dovrebbe darmi la stampa della parte sinistra della stringa, ma nulla.