Extracting data from a variable length string

[SamT]

Function Recombine(strIn As String)AS String
'Assumes strIn is a 5 part string like "smith - xx - john"
'Returns a 3 part string like "xx john smith"

Dim Tmp
    tmp = Split(strIn, "-")
    Recombine = Trim(Tmp(1) & tmp(2) & tmp(0))
End Function