请问用VB怎样实现将一串英文字母进行大小写转换啊？跪求程序代码

不好意思，我没说清，要求是用子过程来实现的。并且字符串中大写换小写，小写换大写。

---

想要转换为小写坦哗:变量=LCase(字符串)
想要转换为大写:变量颂信肆=UCase(字符串)
比如:
Dim AAA As String
AAA=Inputbox("请输入一串英文字符")
me.caption=LCase(AAA)

这样就能在窗体的标题上显示刚才输入的小写字符野轿了

---

Option Explicit
Dim strData As String
Dim strData1 As String
Dim i As Long

Private Sub zh(strData As String)
For i = 1 To Len(strData)
If Asc(Mid(strData, i, 1)) >= 97 And Asc(Mid(strData, i, 1)) <= 122 Then
strData1 = strData1 + Chr(Asc(Mid(strData, i, 1)) - 32)
ElseIf Asc(Mid(strData, i, 1)) >= 65 And Asc(Mid(strData, i, 1)) <= 90 Then
strData1 = strData1 + Chr(Asc(Mid(strData, i, 1)) + 32)
Else
strData1 = strData1 + Chr(Asc(Mid(strData, i, 1)))
End If
Next i
End Sub

Private Sub Command1_Click()
Call zh(strData)
Text1.Text = strData1
End Sub

Private Sub Form_Load()
strData = "Command1_Click"
End Sub

---