' IP-Adress(Long)->IP-Adress (String)FUNCTION IP_Adress(BYVAL T01 AS LONG) AS STRINGLOCAL T02 AS STRING, T03 AS BYTE PTRT03 = VARPTR(T01)T02 = USING$("#_.#_.#_.#", @T03, @T03[1], @T03[2], @T03[3])FUNCTION = T02END FUNCTION