compare variables

[davyquyo]

can someone help me
i want to create some sort of login
this is what i have

Function logingo()
Dim urlbestand As String
Dim gegevens As String
Dim splitten As String
Dim splitten2 As String
Dim splitten3 As String
Dim splitten4 As String
Dim splitten5 As String
Dim bstand As Boolean
Dim pathnaam As String
Dim loginjuist As Boolean
urlbestand = Environ("commonProgramFiles") & "\dcq369\log.dat"
pathnaam = Environ("commonProgramFiles") & "\dcq369\schrfbvgdhd.dat"
If Len(Dir$(urlbestand)) > 1 Then
bestand = True
Else
MsgBox "er zijn geen personen geregistreerd", vbExclamation, "opmerking"
End If
If bestand = True Then
Open urlbestand For Input As #1
gegevens = Input(LOF(1), #1)
Close #1
splitten = Split(gegevens, "||")(1)
splitten2 = Split(splitten, "=")(1)
For i = 1 To splitten2
splitten3 = Split(gegevens, "||")(i + 1)
splitten4 = Split(splitten3, "&&")(0)
splitten5 = Split(splitten3, "&&")(1)
 [COLOR=red]
MsgBox splitten4
MsgBox splitten5
MsgBox Text1.Text
MsgBox Text2.Text
[/COLOR] 
If splitten4 Like Text1.Text And splitten5 Like Text2.Text Then
loginjuist = True
Exit For
Else
loginjuist = False
End If
Next i
End If
If loginjuist = True Then
Open pathnaam For Output As #1
Print #1, "ja"
Close #1
progamma.Show
Unload login
Else
MsgBox "uw gegevens zijn fout probeer opnieuw of druk op doorgaan", vbExclamation, "opmerking"
End If
End Function

the message boxen in red are being compared but they are equal and the script don't seethem as equal variables what do i have to do to get them equal