Vad gör jag för fel?
Meningen är att användaren ska kunna välja att omvandla tecken till ASCII kod och tvärtom, samtidigt som det skrivs ut valt antal ggr i en listbox..
tacksam för svar..



Option Explicit

Private Sub Form_Load()

Dim i As Integer
For i = 1 To 25
cmbAntal.AddItem (i)
Next
cmbKod.AddItem " Från ASCII kod till tecken"
cmbKod.AddItem " Från tecken till ASCCI kod"
End Sub


Private Sub cmdKnapp_Click()
lstUtskrift.Text = Omvandling(cmbKod.Text, CInt(cmbAntal.Text))
End Sub


Private Function Omvandling(strKod As String, intAntal As Integer) As String
Dim i As Integer
Dim Strabla As String
For i = 1 To intAntal
Next i

If strKod = "Från ASCII kod till tecken" Then
Strabla = Chr(CLng(txtInskrift.Text))
Else
Strabla = Asc(txtInskrift.Text)
End If
Omvandling = Strabla & strKod & intAntal

End Function

*Bortaget*

EDIT: Vid närmare eftertanke så förstår jag nog inte vad du har skrivit...

/Micke

Kika på nedanstående och se om det kan ge lite vägledning.

Koden...
Dim strText As String
strText = "Teststräng"
Dim i As Integer
For i = 1 To Len(strText)
Debug.Print Asc(Mid(strText, i, 1))
Next i

... skriver ut följande tal i debugfönstret:

84
101
115
116
115
116
114
228
110
103

Är det något liknande som du är ute efter ?

Micke Microsoft