Аутлук в модулях формах никак не хочет в строках использовать русские буквы.
Если написать там русскую строку, при следующем открытии кода формы вместо нее будут кракозябры.
Я решал вопрос раньше, храня код отдельно и потом только вставляя его в форму.
Но потом меня это запарило и я решил сделать по другому - получать русские буквы, конвертируя их из латиницы.
Привожу пример использования:

Language_Constants.Add "Category", Lat2Rus("Kategoriya")
Language_Constants.Add "Complete", Lat2Rus("Zavershena")
Language_Constants.Add "Today", Lat2Rus("Segodnya")
Language_Constants.Add "NoFilter", Lat2Rus("Bez fil'tra")
Language_Constants.Add "Yesterday", Lat2Rus("Vchera")
Language_Constants.Add "Tomorrow", Lat2Rus("Zavtra")
Language_Constants.Add "Equal", Lat2Rus("Ravno")
Language_Constants.Add "NotEqual", Lat2Rus("Ne ravno")
Language_Constants.Add "More", Lat2Rus("Bol'she")
Language_Constants.Add "Less", Lat2Rus("Men'she")
Language_Constants.Add "MoreEqual", Lat2Rus("Bol'she ravno")
Language_Constants.Add "LessEqual", Lat2Rus("Men'she ravno")
Language_Constants.Add "Who prick", Lat2Rus("Kem poruchena")
Language_Constants.Add "Start date", Lat2Rus("Data nachala")
Language_Constants.Add "StartDate_Empty", Lat2Rus("Data nachala pusto")
Language_Constants.Add "Task_Status", Lat2Rus("Sostoyanie")
Language_Constants.Add "Task_Status_NotBegin", Lat2Rus("Ne nachalas'")
Language_Constants.Add "Task_Status_Frozen", Lat2Rus("Otlozhena")
Language_Constants.Add "Task_Status_Executed", Lat2Rus("Vyypolnyaetsya")
Language_Constants.Add "Task_Status_Closed", Lat2Rus("Zavershena")
Language_Constants.Add "Task_Status_Waiting", Lat2Rus("V ozhidanii")


? Lat2Rus("\yeto zamechatel'naya vesch' dlya pod^ezda")
? Lat2Rus("ya lyublyu morozhennoe - yeto zamechatel'naya vesch' dlya pod^ezda")

А вот и готовый код фукнции, она допускает экранирование одного символа и прочие символы, кроме латинских букв.

Function Lat2Rus(s)
Res = ""

j = 1
While j <= Len(s)
pos = j
ch3 = Mid(s, j, 3)
ch2 = Mid(s, j, 2)
ch = Mid(s, j, 1)
If ch = "\" Then
ch = Mid(s, j + 1, 1)
ch2 = ""
ch3 = ""
j = j + 1
End If

lch = LCase(ch)
IsUpper = LCase(ch) <> ch
ch = lch
ch2 = LCase(ch2)
ch3 = LCase(ch3)


R = ""

If ch3 = "sch" Then
R = Chr(249)
j = j + 2
ElseIf ch2 = "yo" Then
R = Chr(184)
j = j + 1
ElseIf ch2 = "zh" Then
R = Chr(230)
j = j + 1
ElseIf ch2 = "ch" Then
R = Chr(247)
j = j + 1
ElseIf ch2 = "sh" Then
R = Chr(248)
j = j + 1
ElseIf ch2 = "yy" Then 'F.e. cyyrk
R = Chr(251)
j = j + 1
ElseIf ch2 = "ye" Then
R = Chr(253)
j = j + 1
ElseIf ch2 = "yu" Then
R = Chr(254)
j = j + 1
ElseIf ch2 = "ya" Then
R = Chr(255)
j = j + 1
ElseIf ch = "a" Then
R = Chr(224)
ElseIf ch = "b" Then
R = Chr(225)
ElseIf ch = "v" Then
R = Chr(226)
ElseIf ch = "g" Then
R = Chr(227)
ElseIf ch = "d" Then
R = Chr(228)
ElseIf ch = "e" Then
R = Chr(229)
ElseIf ch = "z" Then
R = Chr(231)
ElseIf ch = "i" Then
R = Chr(232)
ElseIf ch = "y" Then
R = Chr(233)
ElseIf ch = "k" Then
R = Chr(234)
ElseIf ch = "l" Then
R = Chr(235)
ElseIf ch = "m" Then
R = Chr(236)
ElseIf ch = "n" Then
R = Chr(237)
ElseIf ch = "o" Then
R = Chr(238)
ElseIf ch = "p" Then
R = Chr(239)
ElseIf ch = "r" Then
R = Chr(240)
ElseIf ch = "s" Then
R = Chr(241)
ElseIf ch = "t" Then
R = Chr(242)
ElseIf ch = "u" Then
R = Chr(243)
ElseIf ch = "f" Then
R = Chr(244)
ElseIf ch = "h" Then
R = Chr(245)
ElseIf ch = "c" Then
R = Chr(246)
ElseIf ch = "'" Then 'Soft sign - f.e. sovest'
R = Chr(252)
ElseIf ch = "^" Then 'Hard sign - f.e. pod^ezd
R = Chr(250)
Else
R = ch
End If
If IsUpper Then
R = UCase(R)
End If
j = j + 1
Res = Res + R
Wend
Lat2Rus = Res
End Function