st1="abcdefg"
st2=UCase(st1)

转换后，st2就都是大写字母“ABCDEFG"

Dim str as string
filecopy 文件1,文件2
Open 文件2 for input as #1
open 文件1 for output as #2
do while not eof(1)
line input #1,str
str=ucase(str)
print #2,str
loop
Close #2
close #1
kill 文件2
说明，文件2 是一个临时文件。比如你的文本文件是
C:\1.txt（即文件1）
文件2就是
C:\1.txt.tmp