在中，我常常要使用到特殊的显示效果，而要得到这些效果，我们通常都是使用ubb 函数来处理，下面是我整理的ubb代码~，有待完善~
　　[CODE]
　　‘‘
　　‘UBBCode Function‘
　　‘‘
　　Function UBBCode
　　‘忽略错误
　　On Error Resume Next
　　‘定义变量
　　Dim RegExp
　　Dim strNewValue
　　Set RegExp = New RegExp
　　RegExp.IgnoreCase = True
　　RegExp.Global = True
　　strValue = UCase)
　　If strValue Then
　　RegExp.Pattern =
　　strNewValue = RegExp.Replace
　　RegExp.Pattern =
　　strNewValue = RegExp.Replace
　　RegExp.Pattern = “])
　　strNewValue = RegExp.Replace
　　RegExp.Pattern = “])
　　strNewValue = RegExp.Replace
　　RegExp.Pattern =
　　strNewValue = RegExp.Replace
　　RegExp.Pattern = “])
　　strNewValue = RegExp.Replace
　　RegExp.Pattern = “])
　　strNewValue = RegExp.Replace
　　RegExp.Pattern = “])
　　strNewValue = RegExp.Replace
　　RegExp.Pattern =
　　strNewValue = RegExp.Replace
　　RegExp.Pattern = “])
　　strNewValue = RegExp.Replace
　　RegExp.Pattern =
　　strNewValue = RegExp.Replace