VBA learning: Compile error: Expected Array

[snjpverma]

I have written below code which should write "Starting with G" in column C, if column B contains a word starting with G.

however, this highlighted word in below line generates an error saying "Compile error: Expected Array".

 If Not islike(cell.text, "g*") Then

Below is the completed code I managed to write.

Sub trial()
Dim islike As Boolean
Dim cell As Range

    For Each cell In Range("B1:B7")
      
        If Not islike(cell.text, "g*") Then
            cell.Offset(0, 1).text = "Starting with G"
        Else
            cell.Offset(0, 1).text = "Not Starting with G"
        End If
    Next cell
End Sub

Public Function islike(text As String, pattern As String) As Boolean

islike = UCase(text) Like UCase(pattern)

End Function

I am unable to understand why it is asking for an array when my function already has an argument "text as String".
I am going crazy tying to figure out the reason.

 

[Fluff]

You need to remove this

Dim islike As Boolean

You are confusing the compiler as it doesn't know if you want the variable or the function

 

[snjpverma]

You are confusing the compiler as it doesn't know if you want the variable or the function

Thank you Fluff for being so quick. I really appreciate. It worked.

Actually, I initially wrote it like this, so I thought ISLIKE should be declared as Boolean. Unfortunately, I was wrong because the function shouldn't be declared in procedure. This is what I understood from this mistake.
If islike(cell.text, "g*") = True Then


Secondly, the below line gave an error saying Object required.
cell.Offset(0, 1).text = "Starting with G"

And then I changed ".text" to ".Value" and it worked fine.
Would you please explain why this happened?

 

[Fluff]

The Text property of a cell is read only, so you cannot write to it.

 

[snjpverma]

The Text property of a cell is read only, so you cannot write to it.

Thanks once again Fluff.
So many new things to learn. Excel and VBA seems like an ocean, vast.

 

[Fluff]

You're welcome & thanks for the feedback.

The best ting (IMO) is to learn just the stuff you need now. Get used to working with that & then expand as needed.