If you can rely on the values always being semi-colon separated, then you can do this:
Dim temp As String() = pfb.Split(";"c)
Dim numbers As Single() = New Single(temp.Length - 1){}
For i As Integer = 0 To temp.Length - 1
numbers(i) = CSng(temp(i))
Next