Case "two", "to", "too"
edtContent.Text = edtContent.Text & " TWO"
Sleep(WaitMs)
edtContent.Text = Content & "2"
Case "three", "free"
edtContent.Text = edtContent.Text & " THREE"
Sleep(WaitMs)
edtContent.Text = Content & "3"
Case "four", "for", "fork"
edtContent.Text = edtContent.Text & " FOUR"
Sleep(WaitMs)
edtContent.Text = Content & "4"
Case "five", "fife"