Ctrl + Shift + * or Ctrl+Shift + * or Ctrl+Shift+* Try the Mark's 1st example. Tue/12/7 class. link to see it in action. Here is what the code looks like: correct = 0 blankPosition = InStr(txtCurrentRegion.Value, " ") do while blankPosition > 0 txtCurrentRegion.Value = Left(txtCurrentRegion.Value, _ blankPosition - 1) _ & _ Mid(txtCurrentRegion.Value, _ blankPosition + 1) blankPosition = InStr(txtCurrentRegion.Value, " ") loop txtCurrentRegion.Value = LCase(txtCurrentRegion.Value) If txtCurrentRegion.Value = "ctrl+shift+*" Then correct = correct + 1 End If