Is there a way to display a Text String in Uppercase on a Userform even if the user enters it in lowercase? So if the user enters 'go swimming' and this is captured as MyTextString, when displayed on the InputBox, it is dispalyed as 'GO SWIMMING'

Static MyTextString As String

If CommandButton1.Caption = "Big Red Button" Then

    HideColumns = InputBox("Do you really want to " &  MyTextString & " or or would you rather do something else?")
Many thanks