the human factor is always a weak place.

nobody can be sure its treasure is in a safety, if someone else have access to it even as a DB admin or...

this question should be rewritten, becuase of the ambigious reading!

Split in VBA for Access will not help you in this case

The only Mid () function is usefull here:

Dim strText as String

Dim varChars() as string

strText="abcdefghijklmn"

Redim varChars(Len(strText)-1)

For i=1 to Len(strText)

 ...

the correct disclaimers are:

1. late-binding -

Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")

2. Earlier binding

Dim olApp As New Outlook.Application

but in both ways you need to connect the Outlook library into Reference list...