Your better off removing the quotations then spliting it. Example
Dim strUser() as String
strUser = Replace(strUser, chr$(38), "") 'I think " is chr38 check on that
strUser = Split(strUser, " : ")
strUser(0) would = digna_kratowicz
strUser(1) would = dhdhd
struser(2) would =
digna_kratowicz@mailin8r.com
should work.