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