richtextbox refusing to change font name

[ajames]

Well, I have this code (contrary to what it looks like, "textbox1" is definately, certainly, 100% sure that it's referring to a richtextbox, as some other code already works). For some reason, the font isn't changing:

With richtextbox1 ' contains a loaded file of settings
.SelStart = 0
nPos2 = InStr(1, .Text, "&") 'I use "&" as the end of a setting, it deletes it afterwards
.SelLength = nPos2 - 1
checked = .SelText
textbox1.SelStart = 0
textbox1.SelLength = Len(textbox1.Text)
textbox1.SelFontName = checked ' yet, for some reason, the richtextbox doesn't change its font...
textbox1.SelStart = 0
textbox1.SelLength = 0
.SelStart = 0
.SelLength = nPos2
.SelText = "" 'deletes the setting so it can move onto the next
End With

Now, I've already managed to apply this to text colour and a caption, so why shouldn't this be working here? If I check the contents of "checked", it returns the name of the font that I wanted, yet there is no font change