That was my exact experience. I tested it on a single word - it worked fine. I sent it off to my beta tester who immediately tried it on three words and it failed. I have now played around with splitting up <dictation> - still no success:

Sub Main

   Dim selection, another As String

   Dim words() As String' dimension a string array

   Dim dictation As String

   Dim k As Integer

   Dim result As String

   selection = Chr(34) & "select" & Chr(34) & ", "

   dictation=ListVar2

   words=Split(dictation," ")

   For k = 0 To UBound(words)

       selection = selection & Chr(34) & words(k) & Chr(34) & ", "

   Next

   selection = Mid(selection, 1, Len(selection) - 2)

' MsgBox selection' string is now built perfectly: ""select", "over", "the""

   ' HeardWord selection' does not work

another = "select over the"

' HeardWord another' does not work

'HeardWord "select", "over", "the" ' works just fine

   Wait 0.4

   ' SendKeys "{Esc}", 1

   Select Case ListVar1

      ' […]

      Case "Strikethrough", "Strike Out", "Strikeout"

         SendKeys "%s", 1

   End Select

End Sub

I wonder if EmulateRecognition would work around this restriction?

-Edgar
DPI 15.3, 64-bit Windows 10 Pro, OpenOffice & Office 365, Norton Security, Shure X2U XLR to USB mic adapter with Audio Technica DB135 vocal mic & Shokz OpenComm UC version 1 wireless headset, Asus X299-Deluxe Prime, Intel Core i9-7940X (14 core, 4.3 GHz overclocked to 4.9 GHz), G.SKILL TridentZ Series 64GB (4 x 16GB) DDR4 3333 (PC4 26600) F4-3333C16Q-64GTZ, NVIDIA GIGABYTE GeForce GTX 1060 GV-N1060G1 GAMING-6GD REV 2.0 6GB graphics card with 3 1920x1080 monitors