Procedure.l FindChar( *string.character, cToFind.c, cFindAt.l=0 )
	;!Author: Gustavo J. Fiorenza (aim: gushhfx) - 03/03/2008 - Rev:1
	Define.character *temp
	If (*string)
		*temp = *string
		CompilerIf #PB_Compiler_Unicode
			*string + (cFindAt*SizeOf(character))
		CompilerElse
			*string + (cFindAt)
		CompilerEndIf
		Repeat
			If (*string\c = cToFind)
				CompilerIf #PB_Compiler_Unicode
					ProcedureReturn ( ((*string - *temp) *0.5) + 1 )
				CompilerElse
					ProcedureReturn ( (*string - *temp) + 1 )
				CompilerEndIf
			EndIf
			*string + SizeOf(character)
		Until *string\c = #Null
	EndIf
EndProcedure