
@Geometrical ( addresses ) <======= couldn't have done this without his addresses 
Private Sub PrestigeButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PrestigeButton.Click
If TextBox1.Text = Nothing Then
TextBox1.Text = 0 //or MsgBox("There is nothing in the TextBox", , "Warning!")
End If
End Sub

i would love to see what you come up with @StaxM8
...