
Som iba na mobile, tak si prílohu nepozriem, každopádne ak chcete vypisovať alebo inak pracovať s položkami, nemôžete použiť
MsgBox strNames()
ale
MsgBox Item
Alebo
For i = LBound(strNames) To UBound(strNames)
MsgBox strNames(i)
Next icitovat
MsgBox strNames()
ale
MsgBox Item
Alebo
For i = LBound(strNames) To UBound(strNames)
MsgBox strNames(i)
Next icitovat