Latihan 1- InputBox dan MessageBox - Visual Basic

Buatlah tampilan form seperti ini :

dan klik 2x mulai hitung dan masukan script di bawah ini :

Private Sub Command1_Click()
Dim pesan As String
Dim inputan As String
Dim nilai As Integer
Dim huruf As String

'memasukan nilai untuk perhitungan
inputan = InputBox("Masukan Nilai yang akan di hitung ?? ", "Perhitungan Nilai", nilai)

'mengecek apakan inputan kosong
If inputan = "" Then
MsgBox "Masukan Nilai untuk melakukan perhitungan", , "konfirmasi"



'mengecek apakah inputan angka atau huruf
ElseIf Not IsNumeric(inputan) Then
MsgBox "Masukan Nilai dengan Angka untuk melakukan perhitungan", , "konfirmasi"

'mengecek apakah inputan antara 0-100 bukan
ElseIf inputan < 0 Or inputan > 100 Then
MsgBox "Masukan Nilai dari 0 - 100 untuk melakukan perhitungan", , "konfirmasi"

'perhitungan
Else
    If inputan >= 86 Then
    huruf = "A"
    ElseIf inputan >= 75 Then
    huruf = "B"
    ElseIf inputan >= 60 Then
    huruf = "C"
    ElseIf inputan >= 50 Then
    huruf = "D"
    Else
    huruf = "E"
    End If
    MsgBox "Nilai yang anda dapatkan : " & inputan & " Huruf : " & huruf, , "Hasil Nilai"
End If
End Sub