VoiceAttack Inline VB.net Voice Typing with NATO Phonetic Alphabet (EXAMPLE)

'example VoiceAttack profile containing this inline: https://tinyurl.com/yd25v8tx

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Linq
Imports System.Xml.Linq
Imports System.Threading.Tasks

Public Class VAInline
    dim responses as integer = 0
    dim response() as string
    dim NATO_List as string

    Public Sub Main()

        if (VA.GetText("~NATO_List") isNot nothing)
            NATO_List = VA.GetText("~NATO_List")

            if (VA.GetText("~response") isNot nothing)

                'Split spoken responses at the space which separates words
                response = VA.GetText("~response").Split(New Char() {" "c})

                'Set variable for each word in the response inside NATO_List
                for each word as string in response
                    if (NATO_List.Contains(word))
                        responses += 1
                        VA.SetText("~response_" + responses.ToString(), word)
                    end if
                next

                'Set variable to return count of valid words
                if (responses > 0)
                    VA.SetInt("~response_count", responses)
                end if

            end if
        end if

    End Sub
End Class