Hello from Steved

I've a spreadsheet that has 2 columns of Data

If I type in 003,3.20 that's fine but sometimes there may be more with the
same data, how can the below macro be modified to find the next and so on.
Thankyou.

Sub FindPart()
   Dim res As String, saddr As String
   Dim RgToSearch As Range, RgFound As Range
   Dim secondValue As String
   Set RgToSearch = ActiveSheet.Range("C:C")

   res = Application.InputBox("Type School Number as 001,8.00 to find the
school you are looking for", _
      "Find School", , , , , , 2)
   If res = "False" Then Exit Sub    'exit if Cancel is clicked
   res = Trim(UCase(res))
   If res = "" Then Exit Sub         'exit if no entry and OK is clicked
   If InStr(1, res, ",", vbTextCompare) = 0 Then
      MsgBox "Invalid entry"
      Exit Sub
   End If
   v = Split(res, ",")
   res = Trim(v(LBound(v)))
   secondValue = Trim(v(UBound(v)))
   Set RgFound = RgToSearch.Find(what:=res, _
      LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
    If RgFound Is Nothing Then
      MsgBox "School " & res & " not found."
       Exit Sub
    Else
        saddr = RgFound.Address
        Do
         If RgFound.Offset(0, 1).Text = secondValue Then
          Application.Goto Reference:= _
            RgFound.Offset(0, -1).Address(True, True, xlR1C1)
          Exit Do
         End If
         Set RgFound = RgToSearch.FindNext(RgFound)
        Loop While RgFound.Address <> saddr

   End If
   If RgFound.Offset(0, 1).Text <> secondValue Then
        MsgBox " School Not Found"
   End If
End Sub