Select Case Right (ar (i), 2)
Select Case Right(ar(i), 3) 'memeriksa penilaian 3 karakter
Case "dha" : h = h + 2
Case "tha" : h = h + 4
Case "nya", "nga" : h = h + 5
Case Else
Select Case Right(ar(i), 2) 'memeriksa penilaian 2 karakter
Case "ha", "da", "pa", "ma" : h = h + 1
Case "na", "ta", "ga" : h = h + 2
Case "ca", "sa", "ja", "ba" : h = h + 3
Case "ra", "wa", "ya" : h = h + 4
Case "ka", "la" : h = h + 5
End Select
End Select