In Word in Bengli by Bangladeshi Format (Part-2)

Created of your form is below option

Text Box, Command Button, Label

and typing your code:



If Not IsNumeric(Text1) Then
MsgBox ("Invalid number or no number"), vbOKOnly + vbCritical, "Invalid Number"
Text1 = ""
Label3.Caption = ""
Text1.SetFocus
Exit Sub
End If

Dim num
num = Val(Text1)
num = Format(num, "0.00")
Do Until Len(num) = 12
num = 0 & num
Loop

p = Right(num, 2)
d = Mid(num, 8, 2)
s = Mid(num, 7, 1)
h = Mid(num, 5, 2)
l = Mid(num, 3, 2)
k = Mid(num, 1, 2)

If Val(p) > 0 Then
p = inwrd(p) & " Paisa"
Else
p = ""
End If

If Val(d) > 0 Then
d = inwrd(d)
Else
d = ""
End If

If Val(s) = 0 Then
s = ""
ElseIf Val(s) = 1 Then
s = inwrd(s) & " Hundred "
ElseIf Val(s) > 1 Then
s = inwrd(s) & " Hundreds "
End If

If Val(h) = 0 Then
h = ""
ElseIf Val(h) = 1 Then
h = inwrd(h) & " Thousand "
ElseIf Val(h) > 1 Then
h = inwrd(h) & " Thousands "
End If

If Val(l) = 0 Then
l = ""
ElseIf Val(l) = 1 Then
l = inwrd(l) & " Lac "
ElseIf Val(l) > 1 Then
l = inwrd(l) & " Laks "
End If

If Val(k) = 0 Then
k = ""
ElseIf Val(k) = 1 Then
k = inwrd(k) & " Crore "
ElseIf Val(k) > 1 Then
k = inwrd(k) & " Crores "
End If

wrd = k & l & h & s & d & " Taka " & p & " Only."
Label3.Caption = wrd


and Run your from and typing

Finish.