Invoeg van SPACE opvangen

[satriano17]

dag
Met deze code

Private Sub Text3_Change()
Dim i As Integer
For i = 1 To Len(Text3.Text)
   Label13(i - 1).Caption = Mid$(Text3.Text, i, 1)
 Image2(0).Picture = LoadPicture(App.Path & "\images\" & Label13(1).Caption & ".jpg")
Next i

als ik in de textbox een woord invoeg, dan wordt die wordt gesplits in verschillend labels.
van elke letter in elke label wordt dan een afbeldingen geladen mpet getzelfde naam van die letter.
Dit alles werkt perfect.
De probleem is:
Als ik in plaats van een letter, of tussen twee woorden, een SPACE invoeg, dan krijg ik error
omdat bestaat geen afbeelding zonder....naam.

Hoe kan ik dat voorkomen? Ik heb iets geprobeerd met ascii code(32) van space, maar het mij niet gelukt.
Dus, ik moet kunnen een space invoegen.
dank u
satriano

 

[edmoor]

Even uit het hoofd. Probeer dit eens:

Private Sub Text3_Change()
Dim i As Integer
For i = 1 To Len(Text3.Text)
    If Mid$(Text3.Text, i, 1) <> " " Then
        Label13(i - 1).Caption = Mid$(Text3.Text, i, 1)
        Image2(0).Picture = LoadPicture(App.Path & "\images\" & Label13(1).Caption & ".jpg")
    End If
Next i

 

[satriano17]

Perfect, edmoor.
Werkt perfect.

dank u

Het is wat ik bedoeld.

dank u
opgelost
satriano