จาก link ที่ให้ไปใน #7

https://www.ireallyhost.com/kb/other/173

ก = 167 น่ะครับ

ปุ่มหมายเลข 0 น่าจะใช้แทนตัวอักษร A(65) หรือ a (97) = ฟ(191) หรือ ฤ (196)
ปุ่มหมายเลข 1 น่าจะใช้แทนตัวอักษร B(66) หรือ b (97) = ิอิ(212) หรือ ฺอฺ (xxx)
...
ปุ่มหมายเลข 25 น่าจะใช้แทนตัวอักษร Z(90) หรือ z (122) = ผ(xxx) หรือ ( (xxx)

Private Sub HighLightKey(ByVal parLetter As String, ByVal par_color As Long)
    Dim i As Integer
    Dim ascval As Integer
    ascval = Asc(parLetter)
    b=checkkey(ascval)
    If b>0  then      
        cmdLetter(b).BackColor = par_color                                                    
    ElseIf ascval = 13 Then
        cmdLetter(27).BackColor = par_color
    ElseIf ascval = 32 Then
        cmdLetter(26).BackColor = par_color
    End If
End Sub

function checkkey(k as Integer) as Integer
    Dim b as Integer
    b=0
    if k=65 or k=97 or k=191 or k=196 then b=0
    ...
    else if k=90 or k=122 or k=xxx or k=xxx then b=25

    checkkey=b
end sub