String Auslesen?

[Bluespide]

Mhhhh okay da bin ich mir grade nicht so sicher bei meiner 2010 Version geht das, versuch es mal so:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

. Private Function ReadStringUnicode(ByVal Adress As Integer) As String Dim enc As System.Text.Encoding = System.Text.Encoding.Unicode Dim str As String = "" Dim tByte As Integer = 0 Do tByte = Module1.ReadByte(Adress) If tByte = 0 Then str += enc.GetString(New Byte() {tByte, tByte}) Exit Do Else str += enc.GetString(New Byte() {tByte, Module1.ReadByte(Adress + 1)}) Adress += 2 End If Loop Return str End Function

---