Şimdi ELimde bir programın kodları var string girdiğimiz 1 karekteri ascii ye cevirio ve hemen altındaki bolumde girdiğimiz ascii kodunu string ifadece ceviriyor ama sadece 1 karakterlik cevirmeler yapıyor

Kaynak Kodlar:
Private Sub Command1_Click()
a = Text1.Text
a = Asc(a)
Text2.Text = Str(a)
End Sub

Private Sub Command2_Click()
b = Text3.Text
b = Val(b)
If b > 255 Then GoTo son
b = Chr(b)
Text4.Text = b
son:
End Sub


Arkadaşlar ben mesela text1.text e forumtr değeri girdim o program 5 harfinde ascii sini yanyana text2 kutusunda gostermesini nası saĞLAYABİLİRİM

2. orneğin yanyana ascii kodlarını verdi dielim onu topluca text3.text e yazdıkdan sonra text4 kutusunda forumtr yazısını gostermek istiom bunu nası yapabilirim yardımlarınız icin cok teşekkurler
__________________