Codeer tekst met vb

[Tom25]

Hallo,

Ik wou een programmatje maken in vb en het idee was dat het tekst codeerde.
dus bv.:
Ik heb een koe. --> afdasdfasasdsaf
ofzo

alleen nu heb ik dit:

Private Sub CommandButton1_Click()
Dim Text
Text = Asc(txtText)
Text = Text + 3
txtEncrypt.Text = txtEncrypt & Text
End Sub

Maar dan doe hij alleen het eerste teken.



En nog goed Pasen he!!

 

[Guus2005]

dus dan moet je een lusje maken die de lengte van je string afloopt.

for intTeller=1 to len(strWaarde)
    strChar = mid$(strWaarde,intteller,1)
    'versleutelen ...
next intTeller