Trying to apply two types of word case formatting to same TextBox Content Control

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim strTest As String
Dim oRng As Range
  strTest = "Yet to be determined"
  Set oRng = ActiveDocument.SelectContentControlsByTag("Keys").Item(1).Range
  If InStr(strTest, "Yet to be determined") = 1 Then
     oRng.Text = StrConv(strTest, vbLowerCase)
     oRng.Words(1).Characters.First = UCase(oRng.Words(1).Characters.First)
  Else
    oRng.Text = StrConv(strTest, vbProperCase)
    oRng.Words.Last = UCase(oRng.Words.Last)
  End If
lbl_Exit:
  Exit Sub
End Sub