Sub x ()
Schemerig s als Koord
s = „, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,“
s = vervang (s, „„, "") 'verwijderen ruimten, gemakkelijker om te werken met
s = vervang (s, „,“, „|“) 'vervang 2 komma's met iets anders
s = vervang (s, „,“, "") 'vervangen de resterende bijzondere komma's (lood, sleep) met spatie
Verduister arr () als Koord
arr = verdeel (s, „|“)
Schemerig deel als Variant
Voor Elk deel in arr
Het deel van MsgBox
Daarna
Sub van het eind
|