Access 2007 VBA split string

Reference:
http://www.access-programmers.co.uk/forums/showthread.php?t=93745

Dim strText, strParts() As String
strText = "1,2,3,4,5,6"
strParts = Split(strText, ",")
MsgBox strParts(2)