Function Encryption(ByVal sFile As String, ByVal Password As String) As String
        Dim NewFile As String
        Dim sFileChars() As Integer
 
        Dim PasswortKeys() As Integer
        NewFile = Nothing
 
        Dim CurrentChar As New Char
 
        For i = 0 To sFile.Length
            CurrentChar = sFile.Chars(i)
            sFileChars(i) = Char.GetNumericValue(CurrentChar)
        Next
 
        For i = 0 To Password.Length
            CurrentChar = Password.Chars(i)
            PasswortKeys(i) = Char.GetNumericValue(CurrentChar)
        Next
 
        For i = 0 To UBound(sFileChars)
            For p = 0 To UBound(PasswortKeys)
                sFileChars(i) = sFileChars(i) + PasswortKeys(p)
            Next
            NewFile = NewFile & sFileChars(i).ToString
        Next
 
        Encryption = NewFile
    End Function