Imports System

'Aditya Velagapudi

'2/8/21

'String Class Assignment

Public Module Module1

    Public Sub Main()

        Dim word As String

        Dim letter As Char            'Declare Variables

        Dim count As Integer

        Console.WriteLine("Please enter a word")      'Get user input

        word = Console.ReadLine()

        word = word.ToUpper()

        For i As Integer = 0 To word.Length - 1          'Calculate

            letter = Word.Chars(i)

        If letter = "T" Then

            count += 1

        End If

    Next i

    Console.WriteLine("The letter T appears " & count & " time(s)")    'Give output

    End Sub

End Module