Function recode(stroka As String) As String
Dim i As Integer
Dim k As Integer
    recode = ""
    For i = 1 To Len(stroka)
        k = Asc(Right(Left(stroka, i), 1))
        If (k >= 128) And (k <= 175) Then
            k = k + 64
        ElseIf (k >= 224) And (k <= 239) Then
            k = k + 16
        ElseIf k = 240 Then
            k = 168
        ElseIf k = 241 Then
            k = 184
        ElseIf k = 252 Then
            k = 185
        End If
        recode = recode & Chr(k)
    Next i
End Function
Function recodemin(stroka As String) As String
Dim i As Integer
Dim k As Integer
    recodemin = ""
    For i = 1 To Len(stroka)
        k = Asc(Right(Left(stroka, i), 1))
        If (k >= 128) And (k <= 175) Then
            k = k + 64
        ElseIf (k >= 224) And (k <= 239) Then
            k = k + 16
        ElseIf k = 240 Then
            k = 168
        ElseIf k = 241 Then
            k = 184
        ElseIf k = 252 Then
            k = 185
        ElseIf (k = 42) Or (k = 248) Or (k = 250) Then
            GoTo nopis
        End If
        recodemin = recodemin & Chr(k)
nopis:
    Next i
End Function
Function decode(stroka As String) As String
Dim i As Integer
Dim k As Integer
    decode = ""
    For i = 1 To Len(stroka)
        k = Asc(Right(Left(stroka, i), 1))
        If (k >= 192) And (k <= 239) Then
            k = k - 64
        ElseIf (k >= 240) And (k <= 255) Then
            k = k - 16
        ElseIf k = 168 Then
            k = 240
        ElseIf k = 184 Then
            k = 241
        ElseIf k = 185 Then
            k = 252
        End If
        decode = decode & Chr(k)
    Next i
End Function