'16進数の下6桁を取り出す
        Dim colTx As String = Microsoft.VisualBasic.Right(txHex, 6)

この時点で「負」の数値が「正」に変わっており
この数値でForeColorを入力したTextboxから取りだしたForeColorのカラーコードも
同じ色ではあるけれども「負」から「正」に変わってしまうという事なんですね。？

あまりスッキリしないところも有りますが、一応自己解決という事にしておきます。