Есть ли способ изменить способ отображения списка ввода в MS Word VBA?

Question

Есть ли способ изменить внешний вид списка параметров ввода? В частности, мне интересно, есть ли способ разбить группу параметров на столбцы с субтитрами - другими словами, плоский список списков параметров. Скрипт, который я сейчас использую:

Sub CommentSelect()
With Selection
  Select Case InputBox("Choose: " & vbCr & _
    "1. ___" & vbCr & _
    "2. ___" & vbCr & _
    "3. ___" & vbCr & _
    "4. ___" & vbCr & _
    "5. ___" & vbCr & _
    "6. ___" & vbCr & _
    "7. ___" & vbCr & _
    "8. ___")
    Case 1: .Comments.Add .Range, "___"
    Case 2: .Comments.Add .Range, "___"
    Case 3: .Comments.Add .Range, "___"
    Case 4: .Comments.Add .Range, "___"
    Case 5: .Comments.Add .Range, "___"
    Case 6: .Comments.Add .Range, "___"
    Case 7: .Comments.Add .Range, "___"
    Case 8: .Comments.Add .Range, "___"
  Case Else
End Select
End With
End Sub

Кредиты для скрипта: MacroPod

Заранее спасибо за ваше время!