Public Function DeKeyPassw(Passw As String) As String
  Dim I As Integer
  Dim I2 As Double
  Dim LastByte As Integer
  Dim Erg As String
  If Left(Passw, 9) = "[//Coded:" Then
    For I = 10 To Len(Passw) Step 3
      If I > Len(Passw) - 3 Then Exit For
      LastByte = I2
      I2 = Val(Mid(Passw, I, 3))
      I2 = I2 - 13 - (255 * 3 - LastByte * 3) - 13 * ((I - 10) / 3 + 1)
      Do While I2 < 0
        I2 = I2 + 256
      Loop
      If I2 < 256 Then Erg = Erg + Chr(I2)
    Next
  Else
    Erg = Passw
  End If
  DeKeyPassw = Erg
End Function