Public Function pasString2vbString(Source As String) As String
pasString2vbString = ""
If Source = "" Then Exit Function
 
'erstes Zeichen enthält die Länge des Strings!
pasString2vbString = Mid(Source, 2)
End Function