Imports System

​

Public Module Module1

​

    Public Sub Main()

        'Instr retruns the location of one string indide another 

        Dim sentence, word as string

        dim position as integer 'Instr r

        sentence = "I saw a child eat a fridge. It was not eco-friendly"

        Console.WriteLine(sentence)

        Console.Write("Enter the word to find: ")

        word = Console.ReadLine

        position = InStr(sentence, word)

        Console.Writeline("The word " & word & " is at character " & position)

        console.ReadLine()

    End Sub

End Module

​