Crystal Report - cadena string

Que tal gente, quiero saber si alguien me puede decir como le hago para tomar el valor de un string hasta en donde se encuentra el caracter &, es decir, mi campo de base de datos contiene el siguiente valor: str="5021.40&1 semana", yo quiero tomar de la posición 1 hasta donde se localiza el &: osea que quiero que como resultado me traiga el 5021.40 unicamente

Con que base de datos?

Hola Jorge, para tomar el subtring hasta & tendrias que saber primero en que posicion esta el carcater & y luego hacer un substring:

Siendo str="5021.40&1 semana"
Dim pos As Integer = Str.IndexOf("&") 'aca tomas la posicion de &
Dim nuevostr As String = Str.Substring(0, pos - 1) ' aca tomas el substring y es pos -1 para que tome hasta el caracter antes de &.

Espero te sirva, Saludos