open folder and selected file

Private Sub Command1_Click()
Dim fileName As String
fileName = "c:\program files\someFile.txt"
Shell "explorer /select," & fileName, vbNormalFocus
End Sub