Una variabile che richiede un valore intero, non accetta un valore stringa .....
questo caso è mio , in riferimento a questo post

http://forum.html.it/forum/showthrea...7&pagenumber=3

allego listato finale con le condizioni :
codice:
Private Sub Command1_Click()
Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim z As Integer
    Dim s As Integer
    Dim nr1 As Integer
    Dim nr2 As Integer
    Dim nr3 As Integer
    Dim nr4 As Integer
    
       List3.Clear
    z = 0
    s = 0
    For i = 1 To 46 Step 5
        For j = i To j + 4
            For k = j + 1 To i + 4
                sb = adoPrimaryRS(j)
                st = adoPrimaryRS(k)
                Select Case i
            Case 1 To 5
             ruota = "bari"
            Case 6 To 10
            ruota = "cagliari"
            Case 11 To 15
            ruota = "firenze"
         Case 16 To 20
            ruota = "genova"
                Case 21 To 25
                ruota = "milano"
                Case 26 To 30
                ruota = "napoli"
               Case 31 To 35
               ruota = "palermo"
               Case 36 To 40
               ruota = "roma"
               Case 41 To 45
               ruota = "torino"
               Case 46 To 50
               ruota = "venezia"
               End Select
              amb1 = Abs(sb - st)
          If amb1 = 30 Then
                  s = s + 1
          List3.AddItem ruota & " " & sb & "  " & st
          End If
        Next k
      Next j
    Next i
   If s > 1 Then
   For es = 0 To List3.ListCount - 1 ' se trova valori nella list restituisce il loro numero
         v = Split(List3.List(es), " ") 'array
         
     nr1 = CInt(v(1)) ' restituisce  il vaore intero di v
         nr2 = CInt(v(2)) ' restituisce  il vaore intero di v
        For et = es + 1 To List3.ListCount
           u = Split(List3.List(et), " ") 'array
           nr3 = CInt(u(1)) ' restituisce  il vaore intero U
           nr4 = CInt(u(2)) ' restituisce  il vaore intero di U
          amb1 = Abs(nr1 - nr3)
          If amb1 > 45 Then amb1 = 90 - amb1
          amb2 = Abs(nr2 - nr4)
          If amb2 > 45 Then amb2 = 90 - amb2
          If amb1 = 18 And amb2 = 42 Then z = z + 1

        Next et
    Next es
    End If
 
     MsgBox "Ambi di distanza verticale e orizzontale uguale a 30 sono: " & z

End Sub
quando trova la 1 ° condizione
il codice arriva qui :
nr1 = CInt(v(1)) ' restituisce il vaore intero di U
nr2 = CInt(v(2)) ' restituisce il vaore intero di U
nr3 = CInt(u(1)) ' restituisce il vaore intero di U
nr4 = CInt(u(2)) ' restituisce il vaore intero di U

quieste quattro linee del codi restituisco un errore
ho messo cint, in modo che siano valori interi...ma non succede

forse bisognerebbe fare qualche modifica qui :
v = Split(List3.List(es), " ") 'array
u = Split(List3.List(et), " ") 'array


ma non so come

grazie