On Fri, 2013-11-08 at 15:23 +0100, Fabien Bodard wrote: > My turn !! > > Dim aVersion as String[] = scan(sVersion,"*.*.*") > > Print aVersion[0] > > > Work also with split. > Ha! Dim aVersion As String[] = Scan(Application.Version, "*.*.*") Print aVersion[0] = 48 keystrokes Print Split(Application.Version, ".")[0] = 25 keystrokes :-) Bruce