Sub Speak (Msg As String)
Dim ele() As String
Dim i As Int
Dim S As String
Dim Posiz As Int
ele = Regex.Split(" /P",Msg)
For i=0 To ele.Length-1
Posiz=ele(i).IndexOf2 (" ",0)
If Posiz>-1 Then
S=ele(i).SubString2 (0,Posiz)
If IsNumber(S) Then
ele(i)=ele(i).SubString(Posiz+1)
Log ("wait " & S)
Sleep (S)
Log (ele(i) & " " & DateTime.Time (DateTime.Now))
TTS1.Speak(ele(i), False )
Else
Log (ele(i) & " " & DateTime.Time (DateTime.Now))
TTS1.Speak(ele(i), False )
End If
Else
Log (ele(i) & " " & DateTime.Time (DateTime.Now))
TTS1.Speak(ele(i), False )
End If
Next
End Sub