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 ,不知道错在哪里？？？

求求版主帮帮我啊