Hola Fary94, pues el para cambiar el nick automático solo debes poner una condicional que cuando conecte envié este mensaje al server:
Por ejemplo yo lo tengo puesto el usuario en un Textbox y tengo un Command que cuando le doy click me envia el siguiente comando:
Private Sub Command1_Click()
SEG.SendData "REA 5 " & usuariox.Text & " " & Replace(Text2.Text, " ", "%20") & vbCrLf
End Sub
SEG = Nombre del Sock
usuariox = un Txt con el usuario actualmente conectado al MSN ejemplo :
lofj23@hotmail.comText2 = Pues eso... ahi pongo el nick que quiero. Ejemplo: loco de locos
Importante: Fijate que se cambia en el nuevo nick el espacio " " por "%20" , pero en el usuario no, en el usuario no cambies la "@" por "%40" simplemente ponla natural.