Problem with VB more than 10

Hello,
I having a problem when setting up a program to find values that are more than or less than those of in a cell (s(x). I return an output (putting a 1 in coloumn) when the number s(x) i am trying to find below is set between 1 and 9.9 but when i set it at 10 it doesn’t work, (incidentally it does work at multiples of 10 of the number in the row ie if the number in the row i am looking at is 8 it will return an out put if the max number is set at 80). i am guessing this is because i am not setting it up too look for a number??????- anybody have any ideas???????

my code

Private Sub CommandButton1_Click()
Dim col(1 To 6) As String, a As Integer, r As Integer
Dim x As Integer, s(1 To 6) As String, inputy(1 To 6) As String

col(1) = "a"
col(2) = "b"
col(3) = "c"
col(5) = "d"
' columns i am looking in


s(1) = Worksheets("sheet2").Range("F2")
s(2) = Worksheets("sheet2").Range("G2")
s(3) = Worksheets("sheet2").Range("H2")
s(4) = Worksheets("sheet2").Range("I2")
s(5) = Worksheets("sheet2").Range("J2")
s(6) = Worksheets("sheet2").Range("K2")
' max and min values

inputy(1) = "F3"
inputy(2) = "G3"
inputy(3) = "H3"
inputy(4) = "I3"
inputy(5) = "J3"
inputy(6) = "K3"
' the output is set to one

Set ws = Worksheets("sheet2")

For r = 10 To 10

If ws.Cells(r, col(1)) = s(1) Then
Worksheets("sheet2").Range(inputy(1)) = 1
End If
If ws.Cells(r, col(2)) = s(2) Then
Worksheets("sheet2").Range(inputy(2)) = 1
End If


For x = 3 To 5 Step 2

If s(x) >= ws.Cells(r, col(x)) Then
Worksheets("sheet2").Range(inputy(x)) = 1
End If

If s(x + 1) <= ws.Cells(r, col(x)) Then
Worksheets("sheet2").Range(inputy(x + 1)) = 1
End If

Next x
If ws.Range("L5") = Worksheets("sheet2").Range("L6") Then
MsgBox ("it works !!! copy " & r)
End If
ws.Range("A3:z3").Clear
Next r

End Sub