Attribute VB_Name = "Module1"
Public Function EncryptF(ByVal Password As String, ByVal Text As String) As String
Dim Temp As Integer
Dim i As Long
If (Len(Password) < Len(Text)) Then
    Temp = Len(Text) / Len(Password)
    For i = 1 To Temp + 1
        Password = Password & Password
    Next i
End If
EncryptF = ""
For i = 1 To Len(Text)
    Temp = Asc(Mid(Text, i, 1)) + Asc(Mid(Password, i, 1))
    EncryptF = EncryptF & Chr(Temp)
Next i

ErrorH:
MsgBox ErrHandle, vbCritical, "Error"
End Function

Public Function DecryptF(ByVal Password As String, ByVal Text As String) As String
On Error GoTo ErrorH
Dim Temp As Integer
Dim i As Long
If (Len(Password) < Len(Text)) Then
    Temp = Len(Text) / Len(Password)
    For i = 1 To Temp + 1
        Password = Password & Password
    Next i
End If
DecryptF = ""
For i = 1 To Len(Text)
    Temp = Asc(Mid(Text, i, 1)) - Asc(Mid(Password, i, 1))
    DecryptF = DecryptF & Chr(Temp)
Next i

ErrorH:
MsgBox ErrHandle, vbCritical, "Error"
End Function


Private Function ErrHandle() As String
If (Err.Description <> "") Then
    ErrHandle = "An error has occured!" & vbNewLine & Err.Number & ") " & Err.Description
End If
End Function