Dim testdata As String = "('neo2003', 'neo2003', 'aa89303a6279f2494f779738cc882070', '
[email protected]', '
[email protected]', 'Thomas W. Yoo', 5, 1050846703, '', 'www.geocities.com/chang_y_11364', 'Html Programmer', 'HTML, Programming, Video Games, Neopets', 'New York', 'I luv Neopets!', 'User', 'threaded', 'expanded', 10, 4543, 'Off', 'Off', '60', '5', '', 'boy', 'fastrack_556', '', '', 1050762749, 'on', 'http://images.neopets.com/games/playbuttons/play128.gif', 'on', 'yes', 'on', 'yes', '
[email protected]', '24.193.146.116', '-3-', 'english', 'Member', '10', '', '', 'leaves', '3', 1, 'categories', 'cp', '-', 'yes', 'yes', '0', 0, null, 80, 80, 'eda9c67d6a20358927319cf3510402df', 'yes', null, 'On', 'plaintext', 'all', '-', null, 'no', 'Jul', '10', 1992, 1, 0, null, null, null, null, null, null, null, 0, null, null, null)"
Dim splitstr As String() = testdata.Split("', '")
MsgBox("Username = " & splitstr(1).ToString & vbNewLine & "hash=" & splitstr(5) & vbNewLine & "email=" & splitstr(7))