Dim MiaStringa(4) As String
stringaintera = "casa:albero:mare:strada:"
a = Len(stringaintera)
b = 0
For i = 1 To a
If Mid(stringaintera, i, 1) = ":" Then
b = b + 1
MiaStringa(b) = stringa
stringa = ""
Else
stringa = stringa + Mid(stringaintera, i, 1)
End If
Next i

For i = 1 To 4
If MiaStringa(i) = MiaStringa(i) Then Stop
'metti il cursore del mouse su MiaStringa(i)
Next i


link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp