Защита программы от копирования

Dim myPassword As String
        Dim myEnter As String
        myPassword = "1234"
        Do
            myEnter = InputBox("Введите пароль.")
            If myEnter <> myPassword Then
                MsgBox("Введён неправильный пароль.", vbExclamation)
                End
            Else
                Exit Do
 
            End If
 
        Loop
 
    End Sub

Try
    '=================ОПРЕДЕЛЯЕМ ИМЯ КОМПЬЮТЕРА=====================================================
    vPicuk = My.Computer.Name.ToString
    '=================ОПРЕДЕЛЯЕМ ИМЯ КОМПЬЮТЕРА=====================================================
    '=================ОПРЕДЕЛЯЕМ ИМЯ ПОЛЬЗОВАТЕЛЯ===================================================
    vUseData = My.User.Name.ToString
    '=================ОПРЕДЕЛЯЕМ ИМЯ ПОЛЬЗОВАТЕЛЯ===================================================
    '=================ОПРЕДЕЛЯЕМ СЕРИЙНИК МАТЕРИНСКОЙ ПЛАТЫ=========================================
    Dim MOS As New ManagementObjectSearcher("SELECT * FROM Win32_BaseBoard")
    For Each getserial As ManagementObject In MOS.[Get]()
        vMbSrl = getserial("SerialNumber").ToString()
    Next
    '=================ОПРЕДЕЛЯЕМ СЕРИЙНИК МАТЕРИНСКОЙ ПЛАТЫ=========================================
 
Catch
    vMbSrl = "nodetect"
 
    Using FileLogger As New StreamWriter(LogFilePth, True, System.Text.Encoding.UTF8)
        FileLogger.WriteLine(TimeString & "  Критическая ошибка контроля лицензии." & vbNewLine & _
                             TimeString & "  Требуется перезапуск программы...")
    End Using
End Try