テキストボックスを検証しようとしています。ユーザーがすべて小文字を入力した場合は、すべて大文字に変換します。したがって、データベースに追加されると、すべて大文字になります。関数のヘルプが必要です。構文エラーなのか何かわかりません。ここにあります。私はVB.Net 2010を使用しています
Public Function CheckLetters(ByVal strIn As String) As Boolean
Dim i As Integer
Dim strOne As String
For i = 0 To Len(strIn) - 1
strOne = strIn.Substring(i, 1).ToUpper
Select Case strOne
Case "A" To "Z"
Case Else
Return False
End Select
Next
Return True
End Function