Compare Strings

Hi Guys,

I`m having a problem comparing two strings in VBA, I`m used to compare using languages like C, where i can iterate trough each string as string[i].
But in VBA, it cannot be done like that, so I tried using Mid function, but it doenst allow me to use a variable as parameter, so... how can I achieve my goal?

Sub compareSrings(ByVal str1 As String, ByVal str2 As String)
    Dim sizeStr1 As Integer
    Dim sizeStr2 As Integer
    Dim counter As Integer
    Dim matchCnt As Integer
    Dim i As Integer
    Dim a1 As Characters
    Dim a2 As Characters
    
    sizeStr1 = Len(str1)
    sizeStr2 = Len(str2)
    spcCharCnt = 0
    matchCnt = 0
    
    For i = 0 To sizeStr1
        If Mid(str1, i, 1) <> "*" Then
            counter = counter + 1
        End If
    Next i

    If sizeStr1 > sizeStr2 Then
        For i = 0 To sizeStr2
            a1 = Mid(str1, i, 1)
            a2 = Mid(str2, i, 1)
            If a1 = a2 Then
                matchCnt = matchCnt + 1
            End If
        Next i
    Else
       For i = 0 To sizeStr1
            a1 = Mid(str1, i, 1)
            a2 = Mid(str2, i, 1)
            If a1 = a2 Then
                matchCnt = matchCnt + 1
            End If
        Next i
    End If
    
    
    If matchCnt = spcCharCnt Then
        Debug.Print "Match"
    End If
End Sub

What is the issue you have, your code looks nice
Perhaps send a sample of you data

the problem is :
Run time error 5
invalid procedure call or argument

In the line
If Mid(str1, i, 1) <> "*" Then

I`m trying to compare for example app*e and apple , it should give me that they are equal, cause i m not counting the character *

Easy, just ask ... (;-))