Public Function ToAscii(text As String)
    Dim I, cod As Integer
    Dim bigstroka, f As String
    On Error GoTo 10
    For I = 1 To Len(text)
            f = Mid(text, I, 1)
            cod = Asc(f)
            'If cod > 233 Then Text2.Text = Text2.Text + Chr(cod - 16)
            If cod >= 192 And cod < 240 Then
                bigstroka = bigstroka + Chr(cod - 64)
            End If
            If cod >= 240 Then
                bigstroka = bigstroka + Chr(cod - 16)
            End If
            If cod < 128 Then
                bigstroka = bigstroka + Chr(cod)
            End If
            If (cod >= 128 And cod < 168) Or (cod > 168 And cod < 184) Or (cod > 184 And cod < 192) Then
                bigstroka = bigstroka + Chr(cod)
            End If
            If cod = 168 Then
                bigstroka = bigstroka + Chr(240)
            End If
            If cod = 184 Then
                bigstroka = bigstroka + Chr(241)
            End If
10: Next
    ToAscii = bigstroka
End Function
Public Function ToAnsi(text As String)
    Dim I, cod As Integer
    Dim bigstroka As String
    For I = 1 To Len(text)
        f = Mid(text, I, 1)
        cod = Asc(f)
        If cod < 128 Then
            bigstroka = bigstroka + Chr(cod)
        End If
        If cod >= 128 And cod < 192 Then
            bigstroka = bigstroka + Chr(cod + 64)
        End If
        If (cod >= 224 And cod < 240) Or (cod > 241 And cod < 249) Then
            bigstroka = bigstroka + Chr(cod + 16)
        End If
        If cod = 240 Then bigstroka = bigstroka + Chr(168)
        If cod = 241 Then bigstroka = bigstroka + Chr(184)
        If cod >= 192 And cod < 224 Then
            bigstroka = bigstroka + Chr(cod)
        End If
10:    Next
    ToAnsi = bigstroka
End Function