Find part of the text in a range of cells

Hello everybody
I have some values (numbers and texts) in range("A1:A10")
I have a code that show me an inputbox to type a value in and according to the value if it is found the address will be put next to the cell ..
My request is to be able to find for example all the occurences of specific text (say I typed "Yass" then the code has to give me three addresses in B1 & B6 & B10 .In other words to search part of the text not the whole text

Something like this?

Sub FindVBA()
    Dim r As Range
    Dim c As Range
    Dim s As String
    Dim ms As String
    Set r = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)     ', Range("A65536").End(xlUp))

    ms = "The Value was found at  "
    s = InputBox("Type Anything To Find", "Find VBA")
    
    For Each c In r
        If c Like "*" & s & "*" Then c.Offset(0, 1) = c.Address
    Next c
End Sub

Great Mr. jolivanes
What about small letters .. I want to get the same results if I typed (yass) for example ...?

Other method

Sub test()
    Dim txt, x
    txt = InputBox("Enter")
    x = Len(txt)
    [b1:b10] = Evaluate("if(left(a1:a10," & x & ")=""" & txt & """,a1:a10,"""")")
End Sub

thanks Mr. Jindon for this simple and effective code ..
Just a point it returns the value itself .. I want to return the address of the value

How do you want it?

[b1:b10] = Evaluate("if(left(a1:a10," & x & ")=""" & txt & """,address(row(a1:a10),2,4),"""")")

or

MsgBox Join(Filter(Evaluate("transpose(if(left(a1:a10," & x & ")=""" & _
    txt & """,address(row(a1:a10),2,4),char(2)))"), Chr(2), 0), vbLf)

Thanks a lot Mr. Jindon
You are very helpful
I'm learning a lot from you my tutor