如何在VB中从非固定长度的字符串截取固定长度字符串显示?

RT.详情见QQ2006的皮肤下的VBS文件,如:\QQ\NewSkins\QQ2006\其中有下面这么一段'处理QQ程序发来的事件
Sub Window_OnNotify(code ,var)
If code = 1 Then
'设置当前的Uin
UserNum = Var
If 0 = ShowStatus Then
QQNumber.value = UserNum
Else
QQNumber.value = UserNum
End If 在 UserNum = Var 中..这个是在皮肤上显示了QQ号码...把Var改成其他的字符串的话会显示该字符串,,现在我想让他只显示前4位的话要怎么做..??