Private Function mimaqueren(ByVal strmima As String, ByVal atrmimaqueren As String) As Boolean
Dim intok As Integer
intok = StrComp(strmima, strmimaqueren)
Print intok
If intok = 0 Then
  mimaqueren = True
Else
  mimaqueren = False
End If
Print mimaqueren
End Function

输出都是false ,不知道错在哪里？？？

求求版主帮帮我啊

Private Function mimaqueren(ByVal strmima As String, ByVal atrmimaqueren As String) As Boolean
 Dim intok As Integer
 intok = StrComp(strmima, strmimaqueren)
 Print intok
 If intok = 0 Then
   mimaqueren = True
 Else
   mimaqueren = False
 End If
 Print mimaqueren
 End Function