Je zou volgende functie kunnen gebruiken:
Public Function Splitsen(Waarde As String) As String
For i = 1 To Len(Waarde)
teken = Mid(Waarde, i, 1)
Splitsen = Splitsen & IIf(Asc(teken) = Asc(UCase(teken)), " " & teken, teken)
Next
Splitsen = LTrim(Splitsen)
Splitsen = UCase(Left(Splitsen, 1)) & LCase(Right(Splitsen, Len(Splitsen) - 1))
End Function
groetjes Powerkite