Select Case True
Case UBound(Arr) = 0
  Application.Run Arr(0)
Case Arr(0) = "DisplayNameofTextBox"
  DisplayNameofTextBox ws, txtctl
End Select