sepatah dua 'code' buat studentku

Public Sub PontengKelas_Click( )

jamPonteng = Inputbox ("Berapa jam dah ponteng kelas?","Jam Ponteng")

select Case val(jamPonteng)
case is >= 13
Print "SURAT TUNJUK SEBAB"
case is = 12
Print "SURAT AMARAN 2"
case is >= 4
Print "SURAT AMARAN 1"
end select

End Sub