Visual Basic一个关于替换字符串的问题

将字符串第4个字符开始，第8个字符结束替换成*，比如12345678901替换成1234****901，怎么实现？

用mid函数
dim s as string
s = "12345678901"
s = mid(s, 1, 4) & "****" & mid(s, 9, 3)