Why can't use string.contains

Imports System.IO
Imports System.Text

Public Class Form1

Dim TextBinaryWrite As BinaryWriter
Dim MyFileName As String = "MyFavorith.txt"
Dim str() As String = {"chat.com", "ABC.com", "stripABC.com"}
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists(MyFileName) Then

Dim Loadline As String
Dim readFile As System.IO.TextReader = New StreamReader(MyFileName)
Dim MName As String
Dim WebType As String = ""
Try
While True
Loadline = readFile.ReadLine()

If Loadline.Contains("stripABC.com") = True Then
WebType = "stripABC.com"
End If

If Loadline Is Nothing Then
Exit While
End If

Dim Row As String() = New String() {MName, Loadline}
'Dim Row As String() = New String() {MName, WebType, "", Loadline}
DataGridView1.Rows.Add(Row)

End While
readFile.Close()
readFile = Nothing
LbStatuse.Text = "State : File is load completed."

Catch ex As Exception
TextBox1.Text = ex.ToString
LbStatuse.Text = "Error Try when load file" & ex.ToString
End Try

Else
'Create new file if no have
Try
TextBinaryWrite = New BinaryWriter(New FileStream(MyFileName, FileMode.Create))
LbStatuse.Text = "Statuse : " & MyFileName & " is created."
TextBinaryWrite.Close()
Catch ex As Exception
LbStatuse.Text = ex.Message + "Cannot create file."
Return
End Try
End If

End Sub


I dont know why can't use this code ??

If Loadline.Contains("stripABC.com") = True Then
WebType = "stripABC.com"
End If