Dim arrPM() As String
'message = "/pm neol3ot Salam khoobi?"
If Left(message, 3) = "/pm" Then
    arrPM = Split(message, " ", 3)
    If UBound(arrPM) = 2 Then
        sckYahoo.SendData PM_Send(tUser.Text, arrPM(1), arrPM(2))
    End If
End If