请vb高手帮忙做一下作业，很简单的

文本框：text1
“输入”按钮：cmd1

Private Sub Cmd1_Click()
Dim result As VbMsgBoxResult
result = MsgBox("是否输入", vbYesNo, "提示对话框")
If result = vbYes Then Text1.Text = result
End Sub

这个问题首先要判断文本框中的每一个字符是大写还是小写或是其它字符，如果是大写则转小写，如果是小写则转大写，其它不变，不知道是不是这个意思。
sub cmd1_click()
dim s1,s2 as string
dim l as integer
dim i as integer
dim str as string
str=text1.text
l=len(str)
if l>0 then
for i=1 to l
s1=mid(str,i,1)
if asc(s1)>=65 and asc(s1)<=90 then
'如果是大写则转小写
s2=s2 & lcase(s1)
else if asc(s1)>=97 and asc(s1)<=122 then
'如果是小写则转大写
s2=s2 & ucase(s1)
else
'其它字符不变
s2=s2 & s1
end if
next i
'重新组织转后字符串
text1.text=s2
else
msgbox "请在文本框中输入一字符串"
end if
end sub