Li,
You say you have used the snippet to get the selected layer but then you say you want to select it?
The VBA code below shows how to set a layer to be the selected layer in the TOC
Public Sub SetLayerToBeSelected()
Dim pMXD As IMxDocument
Set pMXD = ThisDocument
Dim pLayer As ILayer
Set pLayer = pMXD.FocusMap.Layer(2) ' tree is zero-based so this is 3rd layer
Dim pContentsView As IContentsView
Set pContentsView = pMXD.ContentsView(0)
pContentsView.SelectedItem = pLayer
pMXD.UpdateContents
End Sub