dim str as string = fblist.selecteditem
dim accstr as string() = str.split(":")
'So now the email will be accstr(0)
'And the password will be accstr(1)