Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Public Function aap()
Const cTekst As String = "Aap Noot Mies Wim Zus Jet"
Dim Arr() As String
Dim intMax As Integer
Dim intTeller As Integer
Arr = Split(cTekst) 'Default delimiter is een spatie
intMax = UBound(Arr, 1)
Debug.Print "Aantal elementen : " & intMax
Debug.Print "Elementen"
For intTeller = 0 To intMax - 1
Debug.Print "Element: " & intTeller & " - " & Arr(intTeller)
Next intTeller
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.