Sub Message()
 Dim x As String
 x = InputBox("Hi User, please insert a string")
   If x = "" Then
      Exit Sub
   Else
      MsgBox x
   End If
End Sub