sub TextFmt($$;$) {
	my($oThis, $sTxt, $sCode) =@_;
	if((! defined($sCode)) || ($sCode eq '_native_')) {
		print STDERR "$sTxt/sCode " . (defined($sCode) ? "is _native_" : "undefined") . " - returning text\n";
		return $sTxt;
	};
	
	# Handle utf8 strings in newer perls.
	if ($] >= 5.008) {
		require Encode;
		print STDERR "$sTxt/$sCode; returning text with UTF-16BE encoding\n";
		return Encode::decode("UTF-16BE", $sTxt);
	}
	
	print STDERR "$sTxt/$sCode; formatting with pack/unpack\n";
	return pack('U*', unpack('n*', $sTxt));
	#return pack('C*', unpack('n*', $sTxt));
}