AppMouseUnvisible<%>1
AppTaskBarUnvisible<%>0
AppPath<%>C:\Programme\blabla
...

Public Function GetConfigValue(ByRef sOption$) As String
 Dim i As Byte
 Dim sValue() As String
 
 sOption$ = LCase(sOption$)
 For i = 0 To UBound(sConfiguration$)
  If sConfiguration$(i) <> vbNullString Then
    sValue = Split(sConfiguration$(i), "<%>")
    If sValue(0) = sOption$ Then
     GetConfigValue = sValue(1)
     Exit Function
    End If
  End If
 Next i
End Function