主题：[求助]字符串截取的问题

Dim r As Row = Tables("高考信息查询表汇总").Current

If r IsNot Nothing Then

    e.Form.Controls("textbox5").text = r("专业名称").SubString(0,4)

End If

可是有的专业名称里有的专业是英语，法学，只有两个字符，就出错，应该怎么改？谢谢！