I am really new to encryption and I wanted to know how well this works,



Code:
Public Function NewEncry(TheText As String, TheKey As String)

Dim TheLetter As String
Dim TheEnd As String

  Randomize
  Rnd -1

  For i = 1 To Len(TheText)
    For j = 1 To Len(TheKey)
      TheLetter = Chr((Asc(Mid(TheText, i, 1)) Xor Int(Rnd * Asc(Mid(TheKey, j, 1)))))

    Next
    
    TheEnd = TheEnd & TheLetter

  Next
  NewEncry = TheEnd

End Function
for me it works pretty damn good but I dont know if this is enough for other people.......

since this is my first encryption program(I am writing an encrtption program ) I need to know if this is strong enough encryption...

what I like about this is if you get one letter in the key wrong, it screws the whole message up....

please give feed back on this....