'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