Function Angka ke Huruf part 2

Pada Postingan Sebelum nya function hanya berfungsi untu perubahan satu digit angka, berikut in adalah konversi untuk perubahan angka dua karakter
lanjutkan script di bawah ini script function angka ke huruf part 1

Function ubah2(TeksPuluhan)
    Dim Result As String

    Result = ""
    ' nilai antara 10-19
    If Val(Left(TeksPuluhan, 1)) = 1 Then
        Select Case Val(TeksPuluhan)
            Case 10: Result = "sepuluh "
            Case 11: Result = "sebelas "
            Case Else
                Result = ubah(Mid(TeksPuluhan, 2)) & "belas "
        End Select
    ' nilai antara 20-99
    Else
        Result = ubah(Mid(TeksPuluhan, 1, 1)) _
                 & "puluh "
        Result = Result & ubah(Right(TeksPuluhan, 1))
   'satuan
    End If
        ubah2 = Result
    End Function

selamat mencoba