Imports System

    Public Module Module1       

    Public Sub Main()

        Dim insertWord, insertLetter As String

        Console.write("Enter a word to be searched: ")

        insertWord = Console.ReadLine()

        Console.write("Enter a letter to be searched in the word: ")

        insertLetter = Console.ReadLine()

        Call findLetter(insertWord, InsertLetter)

    End Sub

    Private Sub findLetter(ByVal userWord As String, ByVal userLetter As Char)

        Dim index As String

        Dim currentLetter As Char

        For I as Integer =  0 To userWord.Length - 1

            currentLetter = userWord.Chars(I)

            If currentLetter = userLetter Then

                index &= I & " "

            End If

        Next

        If index = "" Then 

            Console.WriteLine("The letter " & userLetter & " does not appear in the word " & userword)  

        Else

            Console.WriteLine("The letter " & userLetter & " appears in the word " & userWord & " at index " & index)

        End If

    End Sub

End Module