looking in a array and loop it

[Warbringer]

Okey, my code so far:

'Declared Array
Dim x(6) As String
Dim y(6) As String
Dim iCounter As Integer

Private Sub Command1_Click()
    'Assigned Values
    x(0) = "414,622": x(1) = "431,82": x(2) = "413,685": x(3) = "421,604": x(4) = "429,794": x(5) = "413,557"
	y(0) = "-400,55": y(1) = "-392,107": y(2) = "-380,754": y(3) = "-377,159": y(4) = "-363,381": y(5) = "-360,796"
    
    'Looped Through Array
    For iCounter = 0 To UBound(x) - 1
			'check if something equials the x array
            If x(iCounter) = "China" Then
                Debug.Print "x found"
            End If
			'check if something equials the y array
            If x(iCounter) = "China" Then
                Debug.Print "y found"
            End If
    Next
    
End Sub

Is there something like 'BETWEEN' ? i.e.

'check if something equials the x array
If x(iCounter) BETWEEN x(iCounter) -5 And x(iCounter) +5 Then

so i have a marge of 10 ?