Trække noget ud fra en listbox men ikke fast plads.

Undskyld hvis jeg spørger lidt dumt, men hvis der står det samme hver gang.. hvorfor så overhovedet trække det ud? Hvorfor ikke bare oprette en variabel med indholdet?

Nok mig der har formuleret mig forkert.

dataen i listen ser sådan ud:

$ImageDescription SONY DSC                   
$EquipMake SONY         
$EquipModel DSLR-A100
$Orientation 1
$XResolution 72/1
$YResolution 72/1
$ResolutionUnit 2
$SoftwareUsed DSLR-A100 v1.04
$DateTime 2009:09:06 09:58:31
$YCbCrPositioning 1
$ExifExposureTime 1/400
$ExifFNumber 90/10
$ExifExposureProg 4

og skal kun bruge Orientation 1 det enste der ændre sig af det jeg skal bruge er det 1 tal.

og lige så snart det er et andet camara så står det på en anden linje.

$EquipMake Canon
$EquipModel Canon EOS 400D DIGITAL
$Orientation 8
$XResolution 72/1
$YResolution 72/1
$ResolutionUnit 2

Hej alle. jeg fandt selv en af mine løsninger jeg brugte til noget GPS system engang.

Først trække jeg daten fra listen over i en textbox som stod til multiline = true

her er koden:
Public Sub Hent(Data As Variant)
'On Error Resume Next

Dim Linje As Variant, i As Integer, Uddata As Variant, msg As Variant
    Linje = Split(Data, "$")
    For i = 0 To UBound(Linje)
        If Left(Linje(i), 11) = "Orientation" Then
            Uddata = Split(Linje(i))
          Exit For
        End If
    Next
    msg = ""
    For i = 1 To UBound(Uddata)
    msg = Uddata(i)
    Exit For
    Next

    MsgBox (msg)

   
End Sub