Wow Oorang, I think this is going to take me a while to digest, but I don't see where you're calling the function. I presume I would put that somewhere after the MyByteArray = VBA.StrConv(MyTestString_c, vbFromUnicode) line?
Here's my code so far:
Private Sub btnGenerate_Click()
On Error Resume Next
Dim Shll As WshShell
Dim Msg As String
Msg = "Lorem ipsum dolor sit amet, ..."
'Set Shll = New WshShell
'Shll.Popup Msg
'Letters
'tbResult.Value = Mid(Msg, 1, tbNumber)
If optParas = True Then
'Paragraphs
'call Function for Paragraphs
ElseIf optSentences = True Then
'Sentences
'call Function for Sentences
ElseIf optWords = True Then
'Words
Dim MyByteArray() As Byte
'Const MyTestString_c As String = "Test"
MyByteArray = VBA.StrConv(Msg, vbFromUnicode)
tbResult.Value = Mid(Msg, 1, CountSpaces(tbNumber.Value))
ElseIf optLists = True Then
'Lists
'call Function for Sentences
End If
Msg = Empty
End Sub