dim amount as string
amount = inputbox ("请输入变量")
open "c:\a.txt" for output as #1
print #1 , "Private " & amount & " as string"
print #1 , "get " & amount
print #1 , "set " & amount
close #1

可以考虑用动态数组，循环输入和输出

也可以用类来实现