vb.nette sayıları yazıya cevirmek istiyorum.Forma bir textbox birde yazoya cevirmek icin buton ekledim.Ama yaptığım yol sanırım biraz uzun oldu ve hata veriyor.Mesela 70000 yazıyorum yazıya cevirirken bunu yetmiş diye ceviriyor.Bunun daha kısa ve anlaşılabilir bir yolu varmı?Yardımlarınız icin şimdiden teşekkurler.
--------------------------------------------------------------
Dim rakam As Integer
Dim metin As String
-----------------------------------------------------------------
' yazı butonu
metin = ""

sayiboyu = Len(TextBox1.Text)
Select Case sayiboyu
Case "1"
rakam = Strings.Right(TextBox1.Text, 1)
Call birler()

Case "2"
rakam = Strings.Right(TextBox1.Text, 1)
Call birler()
rakam = Strings.Left(TextBox1.Text, 1)
Call onlar()
Case "3"
rakam = Strings.Right(TextBox1.Text, 1)
Call birler()
rakam = Strings.Mid(TextBox1.Text, 2, 1)
Call onlar()
rakam = Strings.Left(TextBox1.Text, 1)
Call yuzler()
Case "4"
rakam = Strings.Right(TextBox1.Text, 1)
Call birler()
rakam = Strings.Mid(TextBox1.Text, 3, 1)
Call onlar()
rakam = Strings.Mid(TextBox1.Text, 2, 1)
Call yuzler()
rakam = Strings.Left(TextBox1.Text, 1)
Call binler()
Case "5"
rakam = Strings.Right(TextBox1.Text, 1)
Call birler()
rakam = Strings.Mid(TextBox1.Text, 4, 1)
Call onlar()
rakam = Strings.Mid(TextBox1.Text, 3, 1)
Call yuzler()
rakam = Strings.Mid(TextBox1.Text, 2, 1)
Call binler()
rakam = Strings.Left(TextBox1.Text, 1)
Call onbinler()
End Select
TextBox2.Text = metin

--------------------------------------------------------------------------


Sub birler()

If rakam = 1 Then
metin = metin + "bir"
ElseIf rakam = 2 Then
metin = metin + "iki"
ElseIf rakam = 3 Then
metin = metin + "uc"
ElseIf rakam = 4 Then
metin = metin + "dort"
ElseIf rakam = 5 Then
metin = metin + "beş"
ElseIf rakam = 6 Then
metin = metin + "altı"
ElseIf rakam = 7 Then
metin = metin + "yedi"
ElseIf rakam = 8 Then
metin = metin + "sekiz"
ElseIf rakam = 9 Then
metin = metin + "dokuz"
End If
--------------------------------------------------------------------------
Sub onlar()
If rakam = 1 Then
metin = "on" + metin
ElseIf rakam = 2 Then
metin = "yirmi" + metin
ElseIf rakam = 3 Then
metin = "otuz" + metin
ElseIf rakam = 4 Then
metin = "kırk" + metin
ElseIf rakam = 5 Then
metin = "elli" + metin
ElseIf rakam = 6 Then
metin = "atmış" + metin
ElseIf rakam = 7 Then
metin = "yetmiş" + metin
ElseIf rakam = 8 Then
metin = "seksen" + metin
ElseIf rakam = 9 Then
metin = "doksan" + metin
End If
end sub
-----------------------------------------------------------------------
Sub binler()
If rakam = 1 Then
metin = "bin" + metin
ElseIf rakam = 2 Then
metin = "ikibin" + metin
ElseIf rakam = 3 Then
metin = "ucbin" + metin
ElseIf rakam = 4 Then
metin = "dortbin" + metin
ElseIf rakam = 5 Then
metin = "beşbin" + metin
ElseIf rakam = 6 Then
metin = "altıbin" + metin
ElseIf rakam = 7 Then
metin = "yedibin" + metin
ElseIf rakam = 8 Then
metin = "sekizbin" + metin
ElseIf rakam = 9 Then
metin = "dokuzbin" + metin
End If
end sub

------------------------------------------------------------
Sub yuzler()
If rakam = 1 Then
metin = "yuz" + metin
ElseIf rakam = 2 Then
metin = "ikiyuz" + metin
ElseIf rakam = 3 Then
metin = "ucyuz" + metin
ElseIf rakam = 4 Then
metin = "dortyuz" + metin
ElseIf rakam = 5 Then
metin = "beşyuz" + metin
ElseIf rakam = 6 Then
metin = "altıyuz" + metin
ElseIf rakam = 7 Then
metin = "yediyuz" + metin
ElseIf rakam = 8 Then
metin = "sekizyuz" + metin
ElseIf rakam = 9 Then
metin = "dokuzyuz" + metin
End If
End Sub
------------------------------------------------------
Sub onbinler()
If rakam = 1 Then
metin = "on" + metin
ElseIf rakam = 2 Then
metin = "yirmi" + metin
ElseIf rakam = 3 Then
metin = "otuz" + metin
ElseIf rakam = 4 Then
metin = "kırk" + metin
ElseIf rakam = 5 Then
metin = "elli" + metin
ElseIf rakam = 6 Then
metin = "atmış" + metin
ElseIf rakam = 7 Then
metin = "yetmiş" + metin
ElseIf rakam = 8 Then
metin = "seksen" + metin
ElseIf rakam = 9 Then
metin = "doksan" + metin
End If
End Sub
--------------------------------------------------------------------
__________________