Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Input = TextBox1.Text
        Select Case input
            Case "A" To "Z"
                output = LCase(input) '大小写转换

            Case "a" To "z"
                output = UCase(input) '大小写转换
            Case Else
                output = "*"
        End Select
        TextBox2.Text = output
    End Sub

在 TXTBOX1 输入字符时 TXTBOX2自动转换大小写
现在问题是：1.在只是默认一个转换方式，如果你输入第一个字母是大写，他会转成小写，但再输入小写，或者数字，他都是输出小写
2.输入很长的数字时，他也只是输出一个 “*”

该怎么加个循环呢？