Функция Replace - VB

Формулировка задачи:

Ребят, помогите заставить функцию работать:

Private Function Rep_str(Orig_str As String) As String
Dim Out_str As String, i As Long
 
For i = 1 To Len(Orig_str)
 
Out_str = Replace(Orig_str, "a", "Г*")
Out_str = Replace(Orig_str, "b", "ГЎ")
Out_str = Replace(Orig_str, "c", "Гў")
Out_str = Replace(Orig_str, "d", "ГЈ")
Out_str = Replace(Orig_str, "e", "Г¤")
Out_str = Replace(Orig_str, "f", "ГҐ")
Out_str = Replace(Orig_str, "g", "Вё")
Out_str = Replace(Orig_str, "h", "Г¦")
Out_str = Replace(Orig_str, "i", "Г§")
Out_str = Replace(Orig_str, "j", "ГЁ")
Out_str = Replace(Orig_str, "k", "Г©")
Out_str = Replace(Orig_str, "l", "ГЄ")
Out_str = Replace(Orig_str, "m", "Г«")
Out_str = Replace(Orig_str, "n", "Г¬")
Out_str = Replace(Orig_str, "o", "Г*")
Out_str = Replace(Orig_str, "p", "Г®")
Out_str = Replace(Orig_str, "q", "ГЇ")
Out_str = Replace(Orig_str, "r", "Г°")
Out_str = Replace(Orig_str, "s", "Г±")
Out_str = Replace(Orig_str, "t", "ГІ")
Out_str = Replace(Orig_str, "u", "Гі")
Out_str = Replace(Orig_str, "v", "Гґ")
Out_str = Replace(Orig_str, "w", "Гµ")
Out_str = Replace(Orig_str, "x", "Г¶")
Out_str = Replace(Orig_str, "y", "Г·")
Out_str = Replace(Orig_str, "z", "Гё")
 
Rep_str = Out_str
 
Next
End Function

отвечу сам себе:

Public Function Rep_str(Orig_str As String) As String
Dim i As Long
 
For i = 1 To Len(Orig_str)
 
Orig_str = Replace(Orig_str, "a", "Г*")
Orig_str = Replace(Orig_str, "b", "ГЎ")
Orig_str = Replace(Orig_str, "c", "Гў")
Orig_str = Replace(Orig_str, "d", "ГЈ")
Orig_str = Replace(Orig_str, "e", "Г¤")
Orig_str = Replace(Orig_str, "f", "ГҐ")
Orig_str = Replace(Orig_str, "g", "Вё")
Orig_str = Replace(Orig_str, "h", "Г¦")
Orig_str = Replace(Orig_str, "i", "Г§")
Orig_str = Replace(Orig_str, "j", "ГЁ")
Orig_str = Replace(Orig_str, "k", "Г©")
Orig_str = Replace(Orig_str, "l", "ГЄ")
Orig_str = Replace(Orig_str, "m", "Г«")
Orig_str = Replace(Orig_str, "n", "Г¬")
Orig_str = Replace(Orig_str, "o", "Г*")
Orig_str = Replace(Orig_str, "p", "Г®")
Orig_str = Replace(Orig_str, "q", "ГЇ")
Orig_str = Replace(Orig_str, "r", "Г°")
Orig_str = Replace(Orig_str, "s", "Г±")
Orig_str = Replace(Orig_str, "t", "ГІ")
Orig_str = Replace(Orig_str, "u", "Гі")
Orig_str = Replace(Orig_str, "v", "Гґ")
Orig_str = Replace(Orig_str, "w", "Гµ")
Orig_str = Replace(Orig_str, "x", "Г¶")
Orig_str = Replace(Orig_str, "y", "Г·")
Orig_str = Replace(Orig_str, "z", "Гё")
 
Rep_str = Orig_str
 
Next
End Function
  
Private Sub Form_Load()
  MsgBox Rep_str("hello")
End
End Sub

Подскажите, можно ли сделать код более компактным?

Вот, кому надо забиирайте:

'encrypt
Public Function Rep_str_en(Orig_str As String) As String
Dim i As Long
 
For i = 1 To Len(Orig_str)
'leters
Orig_str = Replace(Orig_str, "a", "Г*"): Orig_str = Replace(Orig_str, "b", "ГЎ")
Orig_str = Replace(Orig_str, "c", "Гў"): Orig_str = Replace(Orig_str, "d", "ГЈ")
Orig_str = Replace(Orig_str, "e", "Г¤"): Orig_str = Replace(Orig_str, "f", "ГҐ")
Orig_str = Replace(Orig_str, "g", "Вё"): Orig_str = Replace(Orig_str, "h", "Г¦")
Orig_str = Replace(Orig_str, "i", "Г§"): Orig_str = Replace(Orig_str, "j", "ГЁ")
Orig_str = Replace(Orig_str, "k", "Г©"): Orig_str = Replace(Orig_str, "l", "ГЄ")
Orig_str = Replace(Orig_str, "m", "Г«"): Orig_str = Replace(Orig_str, "n", "Г¬")
Orig_str = Replace(Orig_str, "o", "Г*"): Orig_str = Replace(Orig_str, "p", "Г®")
Orig_str = Replace(Orig_str, "q", "ГЇ"): Orig_str = Replace(Orig_str, "r", "Г°")
Orig_str = Replace(Orig_str, "s", "Г±"): Orig_str = Replace(Orig_str, "t", "ГІ")
Orig_str = Replace(Orig_str, "u", "Гі"): Orig_str = Replace(Orig_str, "v", "Гґ")
Orig_str = Replace(Orig_str, "w", "Гµ"): Orig_str = Replace(Orig_str, "x", "Г¶")
Orig_str = Replace(Orig_str, "y", "Г·"): Orig_str = Replace(Orig_str, "z", "Гё")
'numbers
Orig_str = Replace(Orig_str, "1", "."): Orig_str = Replace(Orig_str, "2", "#")
Orig_str = Replace(Orig_str, "3", ","): Orig_str = Replace(Orig_str, "4", "$")
Orig_str = Replace(Orig_str, "5", "!"): Orig_str = Replace(Orig_str, "6", "%")
Orig_str = Replace(Orig_str, "7", "?"): Orig_str = Replace(Orig_str, "8", "&")
Orig_str = Replace(Orig_str, "9", "@"): Orig_str = Replace(Orig_str, "0", "*")
 
Rep_str_en = Orig_str
 
Next
End Function
 
'decrypt
Public Function Rep_str_dc(Orig_str As String) As String
Dim i As Long
 
For i = 1 To Len(Orig_str)
'leters
Orig_str = Replace(Orig_str, "Г*", "a"): Orig_str = Replace(Orig_str, "ГЎ", "b")
Orig_str = Replace(Orig_str, "Гў", "c"): Orig_str = Replace(Orig_str, "ГЈ", "d")
Orig_str = Replace(Orig_str, "Г¤", "e"): Orig_str = Replace(Orig_str, "ГҐ", "f")
Orig_str = Replace(Orig_str, "Вё", "g"): Orig_str = Replace(Orig_str, "Г¦", "h")
Orig_str = Replace(Orig_str, "Г§", "i"): Orig_str = Replace(Orig_str, "ГЁ", "j")
Orig_str = Replace(Orig_str, "Г©", "k"): Orig_str = Replace(Orig_str, "Г«", "l")
Orig_str = Replace(Orig_str, "Г«", "m"): Orig_str = Replace(Orig_str, "Г¬", "n")
Orig_str = Replace(Orig_str, "Г*", "o"): Orig_str = Replace(Orig_str, "Г®", "p")
Orig_str = Replace(Orig_str, "ГЇ", "q"): Orig_str = Replace(Orig_str, "Г°", "r")
Orig_str = Replace(Orig_str, "Г±", "s"): Orig_str = Replace(Orig_str, "ГІ", "t")
Orig_str = Replace(Orig_str, "Гі", "u"): Orig_str = Replace(Orig_str, "Гґ", "v")
Orig_str = Replace(Orig_str, "Гµ", "w"): Orig_str = Replace(Orig_str, "Г¶", "x")
Orig_str = Replace(Orig_str, "Г·", "y"): Orig_str = Replace(Orig_str, "Гё", "z")
'numbers
Orig_str = Replace(Orig_str, ".", "1"): Orig_str = Replace(Orig_str, "#", "2")
Orig_str = Replace(Orig_str, ",", "3"): Orig_str = Replace(Orig_str, "$", "4")
Orig_str = Replace(Orig_str, "!", "5"): Orig_str = Replace(Orig_str, "%", "6")
Orig_str = Replace(Orig_str, "?", "7"): Orig_str = Replace(Orig_str, "&", "8")
Orig_str = Replace(Orig_str, "@", "9"): Orig_str = Replace(Orig_str, "*", "0")
 
Rep_str_dc = Orig_str
 
Next
End Function

Мне не подошла, т.к. не работает с большими значениями.

Решение задачи: «Функция Replace»

textual
                            Листинг программы 
                        

                            Function CodeStr(stri As String) As String
         X1$ = "acegikmoqsuwy13579dbfhjlnprtvxz24680"
         X2$ = "авдёзйлнпсухч.,!?@бгежикмортфцш#$%&*"
         CodeStr = ""
         For i% = 1 To Len(stri)
             s$ = Mid$(stri, i%, 1)
             k% = InStr(X1$, s$)
             If k% <> 0 Then
                CodeStr = CodeStr + Mid$(X2$, k%, 1)
             Else
                CodeStr = CodeStr + " "
             End If
         Next i%
End Function
 
Function DeCodeStr(stri As String) As String
         X1$ = "acegikmoqsuwy13579dbfhjlnprtvxz24680"
         X2$ = "авдёзйлнпсухч.,!?@бгежикмортфцш#$%&*"
         DeCodeStr = ""
         For i% = 1 To Len(stri)
             s$ = Mid$(stri, i%, 1)
             k% = InStr(X2$, s$)
             If k% <> 0 Then
                DeCodeStr = DeCodeStr + Mid$(X1$, k%, 1)
             Else
                DeCodeStr = DeCodeStr + " "
             End If
         Next i%
End Function
 
 
Sub Test()
    s$ = "to be or not"
    q$ = CodeStr(s$)
    Debug.Print q$
    z$ = DeCodeStr(q$)
    Debug.Print z$
End Sub
                        