Dim MyArrayList As New ArrayList
MyArrayList.add("Sandcladding")
MyArrayList.add("Cellufoam")
MyArrayList.add("Timberclad")

'get input from user
sPrefix = InputListBox("Select an option: ", MyArrayList, MyArrayList.Item(0), "iLogic", "List of Options")

'Define the open document
Dim openDoc As Document
openDoc = ThisDoc.Document
'set solid body prefix
openDoc.ModelingSettings.SolidBodyNamePrefix = sPrefix