在vb中怎么才能在一片英文中（文章中有大写和小写）找出大写字母，并把这些字母变成小写字母，

rivate Sub Command1_Click()

Dim i As Long
Dim databyte As Byte, datastr As String

cdg1.Filter = "文本文件(*.txt)|*.txt"
cdg1.ShowOpen
file_name = cdg1.FileName '打开1个文本文件
i = 1 '读文件指针
Open cdg1.FileName For Binary Access Read As #1
Do While EOF(1) = 0 '读到文件结尾
Seek 1, i
Get 1, , databyte
If databyte < 91 And databyte > 64 Then '如果是大写，根据ASC表直接加上32得到小写字母，（大写的ASC码A-Z为65-90，小写a-z为97-122）
databyte = databyte + 32
End If
datastr = String(1, databyte) '把16进制转换成字符串
Text1.Text = Text1.Text & datastr
i = i + 1 '指针加1
Loop
Close #1 '关闭文件

End Sub

用了一个笨方法做的，好像有个大写转小写的函数，你查下看看

这很简单
全部变为小写：nTxt = LCase("wDg12中国tttttAAbbbXY")
全部变为大写：nTxt = UCase("wDg12中国tttttAAbbbXY")

textbox1.text=lcase(textbox1.text)

用lcase就行了，直接转变成小写。