Sub Macro1()
Dim LastRow As Long, i As Long, Arr(), DateMax As Date, Student As Long, Payment As Long, Counter As Long
    Student = Application.InputBox("Enter ID.", Title:="Select student", Type:=1)
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Arr = Range(Cells(2, 1), Cells(LastRow, 3)).Value
    DateMax = "01.01.2000"
    For i = 1 To UBound(Arr)
        If Arr(i, 3) = Student Then
            If Arr(i, 2) > DateMax Then
                DateMax = Arr(i, 2)
                Payment = Arr(i, 1)
            End If
        End If
    Next
    If Payment > 0 Then
        MsgBox "Student ID:" & vbTab & Student & Chr(10) _
        & "Max Date:" & vbTab & Format(DateMax, "dd/mm/yyyy") & Chr(10) _
        & "Payment: " & vbTab & Payment, 64, "Result"
    Else
        MsgBox "No data on this student.", 48, "Error!"
    End If
End Sub