Code:

Option Explicit

Private Sub Command3_Click()
Dim Tekst As String
Dim Woorden() As String

  Tekst = "Je bevindt zich nu op de site van Visual Basic in België"
  Call Split5(Tekst, Woorden)
  MsgBox "Het zevende woord in de tekst is " & Woorden(6)
End Sub


Private Sub Split5(ByVal Tekst As String, ByRef Woordjes() As String)

Dim rgx As New RegExp
Dim ma As Match
Dim Teller As Integer

  rgx.Pattern = "\b\w+\b"
  rgx.Global = True

  For Each ma In rgx.Execute(Tekst)
    ReDim Preserve Woordjes(Teller)
    Woordjes(Teller) = ma.Value
    Teller = Teller + 1
  Next
End Sub