Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim total_letters As Integer = 0

        Dim upper_case As Integer = 0

        Dim lower_case As Integer = 0

        Dim blank As Integer = 0

        Dim number As Integer = 0

        Dim length As Integer = 0

        Dim inputstr As String = InputBox("Enter the string")

        For Each ch In inputstr

            If Char.IsUpper(ch) Then

                upper_case = upper_case + 1

            ElseIf (Char.IsWhiteSpace(ch))

                blank = blank + 1

            ElseIf (Char.IsNumber(ch))

                number = number + 1

            Else

                lower_case = lower_case + 1

            End If

        Next

        length = upper_case + lower_case + number + blank

        MsgBox("In the given string: " & inputstr & vbNewLine & vbNewLine & "Upper case: " & upper_case & vbNewLine & "Lower case: " & lower_case & vbNewLine & "Blank spaces: " & blank & vbNewLine & "Digits are: " & number & vbNewLine & "Total length: " & length)

    End Sub

End Class