Нужен исходный код...

Держи макрос для MS Word
Изменяет текст с русского на транслит
(сам понимаешь find, работает медленно и для больших объемов малопрегоден)

Но, тебе, как я понял, нужно для работы с клавиатурой.
Тогда используй API-функции для перехвата сообщений клавиатуры и коды символов
(но странно, если ты это сумеешь сделать, то "о=96" вообще раз плюнуть)

Sub Русский_в_ТрансЛит () '' Русский -> ТрансЛит
Dim i As Long
Dim ArRu As Variant, ArTL As Variant
ArRu = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", _
"к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", _
"ц", "ч", "ш", "щ", "ъ", "ы", "ь", "э", "ю", "я", _
"А", "Б", "В", "Г", "Д", "Е", "Ё", "Ж", "З", "И", "Й", _
"К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", _
"Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я")
ArTL = Array("a", "b", "v", "g", "d", "e", "yo", "zh", "z", "i", "y", _
"k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "h", _
"ts", "ch", "sh", "shch", "'", "y", "'", "e", "yu", "ya", _
"A", "B", "V", "G", "D", "E", "Yo", "Zh", "Z", "I", "Y", _
"K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "H", _
"Ts", "Ch", "Sh", "Shch", "'", "Y", "'", "E", "Yu", "Ya")
Selection.WholeStory
For i = 0 To 65
With Selection.Find
.Text = ArRu(i)
.Replacement.Text = ArTL(i)
.MatchCase = True 'чтоб Ц -> Ts, иначе TS
.Execute Replace:=wdReplaceAll
End With
Next i
End Sub

Ну и запросики у новичков пошли о_О

Исходный ком ему, да еще и IDE подавай )