Merhaba arkadaşlar chat sisteminde /nick komutuna 12 karakter sınırlaması yapmak istiyorum kod

ElseIf Mid(strMessage, 1, 6) = "/nick " Then
edtnick = Trim(Mid(strMessage, 6, Len(strMessage)))
Session("Username") = edtnick
strMessage = strUsername & " <font color=black>ismini</font> " & edtnick & " <font color=black>olarak değiştirdi.</font>"
Call WriteLog(strUsername & "|>>> Kullanıcı Adını Değiştirdi! Yeni Kullanıcı Adı: [" & edtnick & "] (" & Time & ")")
saryUserMsgTo = 0
intType = 1

bu şekilde bu koda nasıl karakter sınırlaması ekleyebılırım 12 karakterden fazla nıck gırenlere uyarı verılmesını ıstıyorum
saryUserMsgTo = 0 Genel mesaj
saryUserMsgTo = Array(strUsername) Sadece kullanıcının gorduğü mesaj