Dim I, L, POS As Integer 'I=Zählvariable für For Schleife, L=Länge des Strings, 
' der zu bearbeiten ist, POS=Position an der ° gefunden wurde
Dim VPW, EPW, BINIASC As String 'VPW=Verschlüsseltes PW, EPW=Entsclüsseltes PW, 
' BINIASC=Binär in Ascii
 
VPW = Registry.GetSettingString(HKEY_CURRENT_USER, "Software\TVT", "APW")
I = 1
For I = 1 To L
If Mid(VPW, 1, 1) = "°" Then
VPW = Mid(VPW, 2, L)
VPW = Mid(VPW, 1, (L - 1))
End If
L = Len(VPW)
Next I

Gru?
vb-freak Andi