This article contains a VBA function that will encode a Code 128 barcode. It is taken directly from a working Crystal Report. To use it in Crystal, be sure to set the syntax to 'Basic Syntax'
Since it is VBA, it should translate directly into VB.NET