Czy ten kod jest dobry? Visual Basic 2010

[Dymytrypl]

Kod:
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 jest dobry. Jak nie to proszę o wytłumaczenie \ poprawienie to co jest źle.

 

[michal31337]

No, a co niby w nim jest złego? Jak ci nie działa, to może wklej jakie masz błędy?
PS. W VB 2010 stosujemy MsgBox, a nie MessageBox.

 

[Dymytrypl]

Błędów nie mam. Jak klikam "generate" (to jest kod do tego przycisku) to nic się nie dzieje :/