Very interesting, VB 6 or .Net??

I'm looking for VB.Net....here's what I have so far but I seriously doubt it's even close to being right.........

Private Sub btnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChange.Click
Dim Cash As Integer
Const Pennies As Integer = 0.01
Const Quarters As Integer = 0.25
Const Nickels As Integer = 0.05
Const Dimes As Integer = 0.1
Const Dollar As Integer = 1.0

Cash = Val(txtChange.Text)

If Cash Mod Quarters = 0 Then
Me.lblQuarters.Text = Dollar / Quarters
ElseIf Cash Mod Dimes = 0 Then
Me.lblDimes.Text = Dollar / Dimes
ElseIf Cash Mod Nickels = 0 Then
Me.lblNickels.Text = Dollar / Nickels
ElseIf Cash Mod Pennies = 0 Then
Me.lblPennies.Text = Dollar / Pennies

End If

End Sub

Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click
Me.Close()
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

End Sub
End Class