Nilai angka ke huruf visual basic

Berikut ini adalah salah satu program untuk konversi nilai angka ke huruf menggunakan visual basic.

Option Explicit
Dim a As Single, b As String

Private Sub Command1_Click()
    a = CSng(Text1.Text)
    If a >= 90 And a <= 100 Then
        b = "A"
    ElseIf a >= 80 And a <= 89 Then
        b = "B"
    ElseIf a >= 70 And a <= 79 Then
        b = "C"
    ElseIf a >= 60 And a <= 69 Then
        b = "D"
    ElseIf a >= 0 And a <= 59 Then
        b = "E"
    Else
        b = "HARUS 1-100"
    End If
End Sub

Private Sub Command2_Click()
    End
End Sub