[RESOLVED] How to Write an encripted Text File???

[ThEiMp]

Well just looked over it right now, even!!
But there is one more thing, I must ask...

With trying to read a certain Byte from a String, how do you go and do that???

Public Sub Text1_Change()
On Error Resume Next

If Form3.Text1.Text = Dir(App.Path & "\program\usernames\" & Form3.Text1.Text & ".pas") <> "" Then
    Call OpenFile1
Else
    Exit Sub
End If

End Sub

Public Sub OpenFile1()
On Error Resume Next

Dim Item1 As String

Form3.Label1.Caption = "This Server Console is now accessing your Login Details!!"

Form3.Text1.Enabled = False
Form3.Text2.Enabled = True

Open App.Path & "\program\usernames\" & Form3.Text1.Text & ".pas" For Input As #1
    Input #1, Item1
    Item1 = Form3.Text3.Text
Close #1

Form3.Label1.Caption = "This Server Console has now found your Login Details!!"

End Sub

Public Sub Text2_Click()
On Error Resume Next

If Form3.Text2.Text = "" Then
    Form3.Text3.Text = ""
    
    Form3.Command1.Enabled = True
    Form3.Command3.Enabled = True
    
    Form3.Text1.Enabled = False
    Form3.Text2.Enabled = False
End If

End Sub

Public Sub FixUpEncription1()
Form3.Label1.Caption = "Please wait until this process has been completed!!"

If Form3.Text3.Text = "1" Then Form3.Text4.Text = "!"
If Form3.Text3.Text = "2" Then Form3.Text4.Text = "@"
If Form3.Text3.Text = "3" Then Form3.Text4.Text = "#"
If Form3.Text3.Text = "4" Then Form3.Text4.Text = "$"
If Form3.Text3.Text = "5" Then Form3.Text4.Text = "&#37;"
If Form3.Text3.Text = "6" Then Form3.Text4.Text = "^"
If Form3.Text3.Text = "7" Then Form3.Text4.Text = "&"
If Form3.Text3.Text = "8" Then Form3.Text4.Text = "*"
If Form3.Text3.Text = "9" Then Form3.Text4.Text = "("
If Form3.Text3.Text = "0" Then Form3.Text4.Text = ")"

If Form3.Text3.Text = "a" Then Form3.Text4.Text = "1"
If Form3.Text3.Text = "b" Then Form3.Text4.Text = "2"
If Form3.Text3.Text = "c" Then Form3.Text4.Text = "3"
If Form3.Text3.Text = "d" Then Form3.Text4.Text = "4"
If Form3.Text3.Text = "e" Then Form3.Text4.Text = "5"
If Form3.Text3.Text = "f" Then Form3.Text4.Text = "6"
If Form3.Text3.Text = "g" Then Form3.Text4.Text = "7"
If Form3.Text3.Text = "h" Then Form3.Text4.Text = "8"





If Form3.Text3.Text = "A" Then Form3.Text4.Text = "Z"
If Form3.Text3.Text = "B" Then Form3.Text4.Text = "X"





If Form3.Text3.Text = Form3.Text4.Text Then
    Form3.Label1.Caption = "Process is complete!!"
End If

End Sub

This is what process, I am going to add in the code. But don't have any Byte selecting inside an Array, as yet. Just getting the core stuff down, into it as of now...
Then after this, I guess that I am required to add in Array sorting code, that will be able to select the differnet elements that I have defined in the above code???