access vba topindex example fail

listindex works topindex seems removed and focus was needed to add if text value not need focus not clear where initialize come from and how to use Private Sub CommandButton1_Click()   ListBox1.T...