That did the trick, I had to remove the "Dim txtManager As String" part and it worked like a charm.
Here is my final code if ever this helps someone.
Private Sub CSS_AfterUpdate()
txtManager = Nz(DLookup("[Current Manager]", "Staff_list", "[Full Name] = '" & CSS & "'"), "")
End Sub...