[agraham]

Were those decryptions that I gave correct or not? They looked like they might be, especially test4 with an inital capital letter and what seems a sensible name. What are you doing that is different

Sub Button29_Click 'Printen gegevens deelnemers
Naam = Listbox38.Item(Listbox38.SelectedIndex)
Aantal = TabelDeelnemers.RowCount
For Teller = 1 To Aantal -1
	If TabelDeelnemers.Cell("naam", Teller) = Naam Then
   		Nickname = TabelDeelnemers.Cell("Bijnaam",Teller)  'Bijnaam is dutch for Nickname
   	End If
Next
	Dim Secret(StrLength(Nickname)/2) As byte
	For i = 0 To ArrayLen(Secret()) - 1
		Secret(i) = Bit.HexToDec(SubString(Nickname, i*2, 2))
	Next
	string() = Crypto.Decrypt(PassPhrase,secret()) 'Decrypt the data.
	Nickname_2 = Bit.BytesToString(string(),0,ArrayLen(string())) 'Convert the array to a string.
Msgbox(Nickname_2)
End Sub