Czy ten kod jest dobry?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Double
a = 0
If TextBox1.Text = "" Then
MessageBox.Show("Add your e-mail", "Error")
Else
a = (a + 1)
End If
If RadioButton1.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton2.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton3.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton4.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton5.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If a = (5) Then
Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum
End If
End Sub
End Class





Czy ten kod jest dobry?
Proszę o szybką odpowiedź.
Jeśli jest zły to proszę o wytłumaczenie mi o co w tym chodzi.
Na pw lub w temacie.