Public Function VND(conso) As String
s09 = Array("", " mot", " hai", " ba", " bon", " nam", " sau", " bay", " tam", " chin")
lop3 = Array("", " trieu,", " nghin,", " ty,")
If conso.trim = "" Then
VND = ""
ElseIf IsNumeric(conso) = True Then
If conso < 0 Then dau = "am " Else dau = ""
conso = Application.WorksheetFunction.Round(Abs(conso), 0)
conso = " " & conso
conso = Replace(conso, ",", "", 1)
vt = InStr(1, conso, "E")
If vt > 0 Then
sonhan = Val(Mid(conso, vt + 1))
conso = Trim(Mid(conso, 2, vt - 2))
conso = conso & String(sonhan - Len(conso) + 1, "0")
End If
conso = Trim(conso)
sochuso = Len(conso) Mod 9
If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso
DocSo = ""
i = 1
lop = 1
Do
n1 = Mid(conso, i, 1)
n2 = Mid(conso, i + 1, 1)
n3 = Mid(conso, i + 2, 1)
baso = Mid(conso, i, 3)
i = i + 3
If n1 & n2 & n3 = "000" Then
If DocSo <> "" And lop = 3 And Len(conso) - i > 2 Then s123 = " ty" Else s123 = ""
Else
If n1 = 0 Then
If DocSo = "" Then S1 = "" Else S1 = " khong tram"
Else
S1 = s09(n1) & " tram"
End If
If n2 = 0 Then
If S1 = "" Or n3 = 0 Then
s2 = ""
Else
s2 = " linh"
End If
Else
If n2 = 1 Then s2 = " muoi" Else s2 = s09(n2) & " muo10i"
End If
If n3 = 1 Then
If n2 = 1 Or n2 = 0 Then S3 = " mot" Else S3 = " mo1t"
ElseIf n3 = 5 And n2 <> 0 Then
S3 = " lam"
Else
S3 = s09(n3)
End If
If i > Len(conso) Then
s123 = S1 & s2 & S3
Else
s123 = S1 & s2 & S3 & lop3(lop)
End If
End If
lop = lop + 1
If lop > 3 Then lop = 1
DocSo = DocSo & s123
If i > Len(conso) Then Exit Do
Loop

'If docso = "" Then VND = "khong" Else VND = dau & Trim(docso)
If DocSo = "" Then
VND = "khong"
Else: DocSo = Trim(DocSo): VND = dau & UCase(Left(DocSo, 1)) + Right(DocSo, Len(DocSo) - 1)
End If
Else
VND = conso
End If
If Right(VND, 1) = "," Then VND = Mid(VND, 1, Len(VND) - 1)
End Function