Ayuda con inputbox vba URGE

hola ya me quiero volver loco no doy con la solución, tengo un unputbox que acepta cualquier carácter, lo que necesito es que solo acepte tres letras (H,C,E) y si teclean otra salga un msgbox que diga selección invalida el código que tengo es este:

Sub nombres()
Dim i As String
Sheets("cotiz").Select
Range("p8").Select
i = (InputBox("INGRESE H= HIDRÁULICA C= SUR E= NORTE", "ORIGEN"))
ActiveCell.Offset(p, 0).Value = i 'bajamos por las celdas de la selección de 1 en 1
Sheets("cotiz").Select
Range("Q8").Select
i = (InputBox("INGRESE LAS TRES PRIMERAS LETRAS DE LA EMPRESA EJ: JATCO=JAT", "EMPRESA"))
ActiveCell.Offset(QUE, 0).Value = i
Sheets("cotiz").Select
Range("R8").Select
i = (InputBox("INGRESE LAS TRES PRIMERAS LETRAS DEL MES", "MES"))
ActiveCell.Offset(QUE, 0).Value = i
End Sub

la verdad ya me perdí en todas las opciones que he probado y este código es el que originalmente tenia, espero me puedan ayudar

gracias