Help required in replacing InputBox with Select any one option

Hi,
Thanks for all the help extended till now to me as a beginner to VBA.
Request help in the codes to park in my personal.xlsb to use as and when required

(1) Replace the input box to a kind of selection from the list
(2) Error in the code while converting large texts

Code:

---

MyInput = InputBox("This is my InputBox", "MyInputTitle", "UPPER/lower/Proper/Sentense")
Select Case MyInput
   
    Case "UPPER"
    For Each Rng In Selection
    If Application.WorksheetFunction.IsText(Rng) Then
    Rng.Value = UCase(Rng)
    End If
    Next

---

I think the easiest and safest and fastest way is to use a User Form

Attachment 27512

Thanks a lot Paul