Simply use a MID statement...Dim sHold As StringsHold = Mid("Rapper", 4, 1)If sHold = "p" Then'Do something hereElse'Don't worry about itEnd If