Rory-
Code runs fine in test book- breaks on first record in the Function in my real datasheet
[vba]
strNumerator = String(Len(Trim$(Mid$(strText, intSpace + 1, intDivisor - intSpace - 1))), "?")
[/vba]