FileBox1.Path = "C:\Carpeta" ' te ubicas en la carpeta que queres ver
Msgbox FileBox1.ListCount -1 'la cantidad de imagenes (el -1 es porque empieza desde 0)

'Suponiendo que Datos tiene eso de Palabra1...
X = Left(Datos, 3) 'Obtenes las 3 primeras letras

Y = Mid(Datos, 13, 3) 'Obtenes las 3 letras que estan a partir de la posicion 13

    Dim PT As POINTAPI
    GetCursorPos PT
    Me.Caption = PT.x & "-" & PT.y

Todo = Replace(Todo, ",", "")

Private Sub Text1_Change()
    Text1 = UCase(Text1)
    Text1.SelStart = Len(Text1)
End Sub

                  Y
                 |
                 |
                 |
                 |
                 |
                 |
-X _______________________ X
                 |
                 |
                 |
                 |
                 |
                 |
                  -Y

                  -Y
                 |
                 |
                 |
                 |
                 |
                 |
-X _______________________ X
                 |
                 |
                 |
                 |
                 |
                 |
                  Y

Static Estado as Boolean
If Estado = True Then
    Picture1.Picture = LoadPicture("C:\NO.jpg")
    Estado = False
Else
    Picture1.Picture = LoadPicture("C:\SI.jpg")
    Estado = True
End If