EnableExplicit Define lpString1$ Define lpString2$ Define CMPResult lpString1$ = "Hallo Welt" lpString2$ = "Hallo Welt" CMPResult = lstrcmp_(@lpString1$, @lpString2$) Select CMPResult Case -1 Debug "Die Strings sind nicht identisch. 2. String ist länger." Case 0 Debug "Die Strings sind identisch." Case 1 Debug "Die Strings sind nicht identisch. 1. String ist länger." EndSelect