Hello there!

I am trying to make a programm that classifies data , but i don't get the right result.

Here is my code :

Code:

Open "C:\Temp\data1.txt" For Input As #3
Open "C:\Temp\data2.txt" For Output As #4
Dim R(4) As Double
Do While Not EOF(3)
Input #3, R(1), R(2), R(3), R(4)
For k = 1 To 4
If R(k) >= 0 And R(i) <= 10 Then
R(k) = 1
ElseIf R(k) >= 11 And R(k) <= 20 Then
R(k) = 2
ElseIf R(k) >= 21 And R(k) <= 30 Then
R(k) = 3
ElseIf R(k) >= 31 And R(k) <= 40 Then
R(k) = 4
ElseIf R(k) >= 41 And R(k) <= 50 Then
R(k) = 5
End If
Next k
Print #4, R(1), R(2), R(3), R(4)
Loop
Close #4
Close #3

For example i have d1 txt file :

and the result must be :

Any suggestion? Thanks anyway