If TextBox1.Text Is Nothing Then
MessageBox.Show("Lütfen Serial Numara giriniz.")
End If
Dim wc As WebClient = New WebClient()
Dim veriler = wc.DownloadString("https://www.siteniz.com/veri.php") 'buraya sitenizi gireceksiniz.
If veriler.Contains(TextBox1.Text) Then
MessageBox.Show("Serial Numara Onaylı.") ' eğer veri.php'de yazan kodu adam yazdıysa ne tür onay mesajı verip form geçişi vb. yapsın form geçişi kodu siz ekleyebilirsiniz altına.
Else
MessageBox.Show("Serial Numara Geçersiz.") ' serial key yanlış girdiyse ne hatası versin.
End If