map answer0$$ * 11, from  1 to  1 as kenn$$,_
                    from  2 to  2 as version1$$,_
                    from  3 to  3 as version2$$,_
                    from  4 to  4 as verdatum1$$,_
                    from  5 to  5 as verdatum2$$,_
                    from  6 to  7 as verdatum3$$,_
                    from  8 to  8 as option1$$,_
                    from  9 to  9 as option2$$,_
                    from 10 to 10 as option3$$,_
                    from 11 to 11 as option4$$

Dim arr() as String="hallo,juhu,moin,grüzi,hi".Split(",")
 
Dim Gesamt as String=String.Concat(arr)
 
Messagebox.Show(Gesamt)

EALA FREYA FRESENA

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
    Teil(0) = "AA"
    Teil(1) = "BB"
    Teil(2) = "CC"
    Teil(3) = "DD"
    MessageBox.Show(Ergebnis)
    Teil(1) = "XX"
    MessageBox.Show(Ergebnis)
    ergebnis = "AAZZCCDD"
    MessageBox.Show(Teil(1))
End Sub
 
Private Teil(3) As String
Property Ergebnis() As String
    Get
        Return String.Join("", Teil)
    End Get
    Set(ByVal value As String)
        Teil(0) = value.Substring(0, 2)
        Teil(1) = value.Substring(2, 2)
        Teil(2) = value.Substring(4, 2)
        Teil(3) = value.Substring(6, 2)
    End Set
End Property

Public Class StringParts
 
    Dim _stb As New System.Text.StringBuilder
    Dim _upperbounds() As Integer
    Dim _lowerbounds() As Integer
    Dim _lengths() As Integer
 
 
    Public Sub New(ParamArray lengths() As Integer)
 
        Array.Resize(_lowerbounds, lengths.Length)
        Array.Resize(_lengths, lengths.Length)
        Array.Resize(_upperbounds, lengths.Length)
 
        _lowerbounds(0) = 0
        _upperbounds(0) = lengths(0) - 1
        _lengths(0) = lengths(0)
 
 
        For i As Integer = 1 To lengths.Length - 1
            If lengths(i) < 1 Or lengths(i - 1) < 1 Then
                Throw New ArgumentException
            End If
            _lowerbounds(i) = _upperbounds(i - 1) + 1
            _upperbounds(i) = _upperbounds(i - 1) + lengths(i)
            _lengths(i) = lengths(i)
        Next i
 
        _stb = New System.Text.StringBuilder _
            (New String(" "c, _upperbounds _
             (_upperbounds.GetUpperBound(0)) + 1))
    End Sub
 
 
    Default Public Property Part(ByVal index As Integer) As String
 
        Get
            Return _stb.ToString(_lowerbounds(index), _lengths(index))
        End Get
 
        Set(value As String)
            Dim sb As New System.Text.StringBuilder(value)
            sb.Length = _lengths(index)
            _stb.Remove(_lowerbounds(index), _lengths(index))
            _stb.Insert(_lowerbounds(index), sb)
        End Set
 
    End Property
 
 
    Public ReadOnly Property Total() As String
        Get
            Return _stb.ToString
        End Get
    End Property
 
End Class

'Im Konstruktor 
'Zahl der Elemente und Länge der Elemente angeben
Dim stp As New StringParts(2, 3, 4)
 
'Elemente belegen (automatische Längenanpassung)
stp(0) = "AA"
stp(1) = "BBB"
stp(2) = "CCCC"
 
Dim str As String = stp.Total 'AABBBCCCC
 
stp(1) = "XXXXX" 'Überlänge wird abgeschnitten!
 
str = stp(1) 'XXX
str = stp(2) 'CCCC
 
str = stp.Total 'AAXXXCCCC

Module Module1
    Structure x
        Dim a As String
        Dim b As String
        Dim c As String
    End Structure
    Dim t As x
 
    Sub Main()
 
        t.a = "AA"
        t.b = "BB"
        t.c = "CC"
 
        Console.WriteLine("t.a = " & t.a)
        Console.WriteLine("tmp = " & tmp())
        t.b = "xx"
        Console.WriteLine("tmp = " & tmp())
        t.a = "00"
        Console.WriteLine("tmp = " & tmp())
        Console.Read()
    End Sub
 
    Function tmp() As String
        tmp = t.a & t.b & t.c
    End Function

Zitat:

Was mit Powerbasic geht, geht auch mit VB6. Meist kriegt man das, was mit VB6 geht, dann auch in .net hin. Du solltest m.E. für den String aus dem Messgerät einfach ein Byte- oder Int32-Array verwenden. Dann geht das genauso, wie du dir das vorstellst. Die 12 Byte sollten ja einfach genug zu handeln sein. lg, Vb3-Guru