Unable to compare a string with a Structure

[timdog75]

Hi,

I'm new to Visual basic. I am currently writing a small program that stores a person's name and email address into a simple database. See code below

Module Code

Module Module1
    Structure EmailDataBase
        <VBFixedString(25)> Public name As String
        <VBFixedString(50)> Public email As String

    End Structure

    Public EmailContact As EmailDataBase

    Public Filename = "C:\database\email.dbf"
End Module

First Part - Input data into file

Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim NextRecord As Integer
        Dim SearchName As String
        Dim RecordLength As Integer
        SearchName = TextBox1.Text

        FileClose(1)

        RecordLength = Len(EmailContact)

        FileOpen(1, Filename, OpenMode.Random, OpenAccess.Default, OpenShare.Default, RecordLength)

        If LOF(1) < 1 Then NextRecord = 1 Else NextRecord = LOF(1) / RecordLength + 1

        EmailContact.name = TextBox1.Text
        EmailContact.email = TextBox2.Text

        FilePut(1, EmailContact, NextRecord)

        Me.Close()
        Form1.Close()

    End Sub
End Class

Second Part - Find the email address by inputting Name

Public Class Form4
    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim SearchName As String
        Dim SearchNameLower As String
        Dim RecordLength As Integer = Len(EmailContact)
        Dim RecordNo As Integer

        'following variables store emailcontact variables as ToLower

        Dim SearchEmail As String
        Dim EmailName As String

        SearchName = TextBox1.Text
        SearchNameLower = SearchName.ToLower

        FileClose(1)

        FileOpen(1, Filename, OpenMode.Random, OpenAccess.Default, OpenShare.Default, RecordLength)

        RecordNo = LOF(1) / Len(EmailContact)

        For x = 1 To RecordNo

            'If x > 1 Then x = x - 1

            FileGet(1, EmailContact, x)

            SearchEmail = (EmailContact.email.ToLower)
            EmailName = EmailContact.name.ToLower

            If SearchNameLower = EmailName Then
                MsgBox("Match")
            Else
                MsgBox("No Match")
            End If

        Next x



    End Sub
End Class

The problem I am having issues with is in relation to matching the name to the email address in my small database file. When I try and match the name input from textbox1 against the name in the database, the search function is not displaying correctly whether the match is correct or not. I hope this makes sense.

Ive tried to google the answer, use StrComp, String.Equal and String.Compare with no luck.

Any ideas gratefully received

Thanks in advance