invalid procedure call or argument vb6-VBForums

this is the line AName = Mid(Chattext, 1, InStr(1, Chattext, ",") - 1) please help.

www.vbforums.com