Program Seleksi nilai dengan visual basic 6

Hola sobat IT semua!!
Bagi yang butuh nih program silahkan. Program sederhana seleksi nilai dengan visual basic 6.


Source Program:

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Text1_Change()

' Algoritma untuk mendeteksi batas nilai---
Dim nilaiangka
nilaiangka = Val(Text1.Text)
If nilaiangka > 100 Then
    MsgBox "Maaf nilai yang anda input terlalu besar!! Maksimum nilai adalah 100!!"
    Text1.Text = ""
    Text1.SetFocus
        ElseIf nilaiangka < 0 Then
        MsgBox "Maaf nilai yang anda input terlalu kecil!! Minimum nilai adalah 0!!"
        Text1.Text = ""
        Text1.SetFocus
    End If
   
' Algoritma untuk seleksi nilai dengan if...else---
   
'    If nilaiangka >= 80 Then
'    Label3.Caption = "A"
'    Label4.Caption = "Sangat Memuaskan"
'        ElseIf nilaiangka >= 65 Then
'        Label3.Caption = "B"
'        Label4.Caption = "Memuaskan"
'            ElseIf nilaiangka >= 55 Then
'            Label3.Caption = "C"
'            Label4.Caption = "Cukup"
'                ElseIf nilaiangka >= 45 Then
'                Label3.Caption = "D"
'                Label4.Caption = "Kurang"
'                    ElseIf nilaiangka < 45 Then
'                    Label3.Caption = "E"
'                    Label4.Caption = "Gagal"
                   
                   

'    End If

' Algoritma Seleksi nilai dengan Select...Case---

Select Case nilaiangka
    Case 80 To 100
        Label3.Caption = "A"
        Label4.Caption = "Sangat Memuaskan"
    Case 65 To 79
        Label3.Caption = "B"
        Label4.Caption = "Memuaskan"
    Case 55 To 64
        Label3.Caption = "C"
        Label4.Caption = "Cukup"
    Case 45 To 54
        Label3.Caption = "D"
        Label4.Caption = "Kurang"
    Case 0 To 44
        Label3.Caption = "E"
        Label4.Caption = "Gagal"
'    Case Else
'        Label3.Caption = "..."
'        Label4.Caption = "..."
       
    End Select
                   

' Mendeteksi Text field jika kosong
    If Text1.Text = "" Then
    Label3.Caption = "..."
    Label4.Caption = "..."
    End If
End Sub

Terima Kasih!!