Using a variable to loop through li using vba selenium

Question

I would like to use variable "n" in place of the value of 1 for li per the below.

obj.FindElementByXPath("//*[@id=\'main\']/div/div[2]/div[2]/div[2]/di