Private Sub Command1_Click()
成都创新互联公司是一家网站建设、做网站，提供网页设计，网站设计，网站制作，建网站，按需定制，网站开发公司，从2013年成立是互联行业建设者，服务者。以提升客户品牌价值为核心业务，全程参与项目的网站策划设计制作，前端开发，后台程序制作以及后期项目运营并提出专业建议和思路。
Dim a, b, c, d, e, f
a = "0.1322548"
b = Len(a)
f = b - InStr(a, ".") + 1
If f = 4 Then
c = b - 3
d = Left(a, c)
e = d * 100 "%"
Else
e = a * 100 "%"
End If
Print a " 转化为百分数是： " e
End Sub
或者也可以
a = "0.1322548"
b = Format(a, "0.00%")
后一种会四舍五入，前一种不会。
代码：a=Convert.toDouble(textbox1.Text)*6/100，先转换字符串格式为双精度型，再和数字相乘获得结果，但结果是双精度型，你若要显示出来必须转换成字符串，比如textbox2.Text=a.toString()，希望对你有帮助
format(常量或变量或表达式, "格式化参数")
0.00% 以百分比显示 小数点后面固定 2 位
1 - 100%
5 - 500%
0.5 - 50%
0.05 - 5%