Dim sg As String
 
Private Sub Command1_Click()
Dim iLaenge As Integer
iLaenge = Len(sg)
 
If iLaenge > 0 Then
'leter Buchstabe:
List1.AddItem "letzter: " & Right(sg, 1), 0
'1. Buchstabe:
List1.AddItem "erster: " & Left(sg, 1), 0
End If
'die Buchstaben dazwischen
For i = 2 To (iLaenge - 1)
List1.AddItem i & ": " & Mid(sg, i, 1), i - 1
Next i
End Sub
 
Private Sub Form_Load()
sg = "klmno"
End Sub