Strings And Wildcard Characters

I am attempting to set a value in a cell based on the content of another two cells. I want it set the value to 35 or 38 only if the txtProgram.Text contains Math*. Unfortunately, it always changes it to the Math value based on txtGrade.Text. What mistake am I making?

Application.Goto Reference:="SEFirstPass"

If txtGrade.Text Like "K" Or txtGrade.Text Like "1" Or txtGrade.Text Like "2" Then
ActiveCell = "27"

ElseIf txtGrade.Text Like "3" Or txtGrade.Text Like "4" Or txtGrade.Text Like "5" Or txtGrade.Text Like "6" Then
ActiveCell = "30"
End If....................