Dim sentence, word as string
sentence = "I saw a child eat a fridge. It was not eco-friendly"
Console.WriteLine(sentence)
Console.Write("Enter the word to find: ")
position = InStr(sentence, word)
Console.Writeline("The word " & word & " is at character " & position)