文本框问题

用Right 函数(从字符串右边取出的指定数量的字符)应该可以的

Right 函数示例

本示例使用 Right 函数来返回某字符串右边算起的几个字符。

Dim AnyString, MyStr
AnyString = "Hello World"    ' 定义字符串。
MyStr = Right(AnyString, 1)    ' 返回 "d"。
MyStr = Right(AnyString, 6)    ' 返回 " World"。
MyStr = Right(AnyString, 20)    ' 返回 "Hello World"。

在前面加"￥"&Right(*,* ),这样应该能实现第二个功能