Buongiorno ho un file che leggo in VB:NET lo lavoro e poi lo scrivo salvandolo il file è diviso dai punti è virgola.

io dovrei dà una riga del tipo Nome;Cognome;ID riscrivere ID Criptato e in caso di richiesta decriptarlo avevo trovato questo codice ma visual studio non mi riconosce CHR e anche la funzione mi da' problemi

Private Const Chiave As String = "!àéèìòù°+*]-.,;QWERTYUIOPASDFGHJKLZXCVBNM:_£$%&/()=?123456789qwertyuiopasdfghjklzxcvbnm<>{}"
Public Function Cripta(ByVal Testo As String) As String
Dim casuale As Integer
For casuale = 1 To Len(Testo)
Cripta = Cripta & Mid$(Chiave, Asc(Mid$(Testo, ix, 1)) - 31, 1)
Next casuale
End Function
Public Function DeCripta(ByVal Testo As String) As String
Dim casualex As Long
For casualex = 1 To Len(Testo)
DeCripta = DeCripta & Chr$(InStr(Chiave, Mid$(Testo, ix, 1)) + 31)
Next casualex
End Function

Private Sub Form_Click()

Dim TC As String
Dim TD As String
TC = Cripta("ciao")
Print TC
TD = DeCripta(TC)
Print TD

End Sub

ok grazie ci provo