Function IstPLZ(wert As String) As Boolean
IstPLZ = False
If Not IsNumeric(wert) Then Exit Function
If Val(wert) <= 0 Then Exit Function
If InStr(wert, ",") <> 0 Then Exit Function
If Len(CStr(wert)) <> 5 Then Exit Function
IstPLZ = True
End Function