Private Sub speech_Result (Success As Boolean, IsFinal As Boolean, Texts As List)
Dim stringToCheck As String
If Success Then
stringToCheck = Texts.Get(0)
If stringToCheck.Contains("lap") Then
Log(stringToCheck)
getLap
End If
Texts.Clear
Else
Label2.Text = "Error: " & LastException
End If
End Sub