Something like this should work:
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
Exit Sub
End If
Dim Net1 As Double
Dim Net2 As Double
If Double.TryParse(TextBox1.Text, Net1) And Double.TryParse(TextBox2.Text, Net2) Then
Label2.Text = Net1 - Net2
Else
If Not Double.TryParse(TextBox1.Text, Net1) Then
MessageBox.Show("Value in first textbox cannot be converted to a Double")
Exit Sub
Else
MessageBox.Show("Value in second textbox cannot be converted to a Double")
Exit Sub
End If
End If
End Sub