sub TextFmt($$;$) {
    my($oThis, $sTxt, $sCode) =@_;
    return $sTxt if((! defined($sCode)) || ($sCode eq '_native_'));
    return pack('C*', unpack('n*', $sTxt));
}