Dim strA As String
    Dim strB As String * 10
 
 
    strA = "Das ist ein Test 012345678901234567"
 
    strB = strA
 
    Debug.Print strB

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...