If Shift = 2 Then
    Shift = 0
    Do Until RTB.SelText = " " Or RTB.SelText = "." Or RTB.SelText = "," Or _
      RTB.SelText = "!" Or RTB.SelStart = 0
        DoEvents
        RTB.SelStart = RTB.SelStart - 1
        RTB.SelLength = 1
    Loop
    RTB.SelStart = RTB.SelStart + 1
    Do Until right(RTB.SelText, 1) = " " Or right(RTB.SelText, 1) = "." Or _
      right(RTB.SelText, 1) = "," Or right(RTB.SelText, 1) = "!" Or _
      RTB.SelStart + RTB.SelLength = Len(RTB.Text)
        DoEvents
        RTB.SelLength = RTB.SelLength + 1
    Loop
    Label2 = Timer
    RTB.SelLength = RTB.SelLength - 1
    Button = 0
End If