Da ich nicht weiss wie deine Funktion Led_display aussieht, schiess ich mal ins blaue:

Code:
Declare Sub Led_display(s As String)                        'Sub deklarieren
Dim I As Byte
Dim Text As String * 4

Text = "Affe"

Do

Call Led_display(text)                                      'Sub aufrufen und den String "Text" mit dem Inhalt "Affe" übergeben

Loop

End

Sub Led_display(s As String)
Dim S As String * 4
Dim Ausgabe As String * 1
   For I = 1 To 4
      Ausgabe = Mid(s , I , 1)                              'hier wird der String in einzelne Buchstaben zerlegt
      Print Ausgabe                                         'hier muss dann deine Ausgabegeschichte hin
   Next
End Sub
Mit ner Function hab ich es nicht hinbekommen. Deshalb ists bei mir ne Sub geworden.
Hoffe das hilft dir. Wenn nicht, dann zeig mal deine Led_display funktion. Dann weiss ich genauer, was dein Problem ist.

Gruß Daniel