Is there any method to split a string into equal no sub strings using a single function.
There is a function called Split in Access but dont know how to use it.
There is no delimiter in the string.
Thanx in advance
This is just an idea. It includes all the spaces in the string also.
I used a listbox to add the items to to confirm that I was getting what I wanted
Here it is:
Private Sub ck1_Click()
Dim str1 As String, col1 As New Collection, x As Integer, intSize As Integer
Dim strWord As String, varItem As Variant, intOrig As Integer
str1 = "This is a test to see how to split a string into smaller strings of equal parts"
intSize = InputBox("Enter the grouping number", , 2)
intOrig = Len(str1)
lst1.RowSource = ""
For x = 1 To intOrig
If x Mod intSize = 0 Then
strWord = Left(str1, intSize)
str1 = Right(str1, intOrig - x)
If Len(str1) < intSize Then
For Each varItem In col1
lst1.RowSourceType = "Value List"