actually I understand your query.
it's actually my working assign in school convert 1-100 into words. although i have yet to get my assignment done, i have only managed to work on until nineteen.
supposedly there's a code repeating twenty, thirty something and so on.

private sub cmd1_()
dim temp as integero
dim no as integer

no=text1.text

if no<20 then

Select Case no
Case 1
total = "one"
Case 2
total = "two"
Case 3
total = "three"
and so on until nineteen...
End Select
End If

If no >= 20 And Not (no >= 30) Then
mo = no Mod 20

Until here only.. I am still confused how to get the numbers working for the twenty up where i am supposed to make
total="twenty"+ no in words

supposedly the text2.text =total

if anyone has ideas, will be glad to have your help

Private Sub Command1_Click()
Dim temp As Integer
Dim ans As Integer
Dim second As String

no = t1.Text

If no < 20 Then

Select Case no
Case 1
total = "One"
Case 2
total = "Two"
Case 3
total = "Three"
Case 4
total = "Four"
Case 5
total = "Five"
Case 6
total = "Six"
Case 7
total = "Seven"
Case 8
total = "Eight"
Case 9
total = "Nine"
Case 10
total = "Ten"
Case 11
total = "Eleven"
Case 12
total = "Twelve"
Case 13
total = "Thirteen"
Case 14
total = "Fourteen"
Case 15
total = "Fifteen"
Case 16
total = "Sixteen"
Case 17
total = "Seventeen"
Case 18
total = "Eighteen"
Case 19
total = "Nineteen"
End Select
End If

If no >= 20 And Not (no >= 30) Then
mo = no Mod 20
total = "Twenty"
End If

If no >= 30 And Not (no >= 40) Then
mo = no Mod 30
total = "Thirty"
End If

If no >= 40 And Not (no >= 50) Then
mo = no Mod 40
total = "Forty"
End If

If no >= 50 And Not (no >= 60) Then
mo = no Mod 50
total = "Fifty"
End If

If no >= 60 And Not (no >= 70) Then
mo = no Mod 60
total = "Sixty"
End If

If no >= 70 And Not (no >= 80) Then
mo = no Mod 70
total = "Seventy"
End If

If no >= 80 And Not (no >= 90) Then
mo = no Mod 80
total = "Eighty"
End If

If no >= 90 And Not (no >= 100) Then
mo = no Mod 90
total = "Ninety"
End If

If no = 100 Then
total = "One Hundred"
End If

Select Case mo
Case 1
total = total + " " + "one"
Case 2
total = total + " " + "two"
Case 3
total = total + " " + "three"
Case 4
total = total + " " + "four"
Case 5
total = total + " " + "five"
Case 6
total = total + " " + "six"
Case 7
total = total + " " + "seven"
Case 8
total = total + " " + "eight"
Case 9
total = total + " " + "nine"
End Select

im sorry i did kind of reply to old posting. its coz i was actually looking for the answer and found those threads. when i managed to solve it, i posted back in case others like me are looking for answers. anyway, its noted.

hello friends...
i want to print a persian file by thermal printer..
i can print an english file esily..but i face the proble while printing persian text..
i think i ...