Public Function ltrim_zeichen(sZeichenkette As String, sTrimASCIICode As _
  Integer)
    Dim sNewString As String
    Dim iLaenge As Integer
    Dim iLaufindex As Integer
 
    iLaenge = Len(sZeichenkette)
 
    If iLaenge = 0 Then
        ltrim_zeichen = ""
    Else
        For iLaufindex = 1 To iLaenge
            If Not Mid(sZeichenkette, iLaufindex, 1) = Chr$(sTrimASCIICode) Then
                ltrim_zeichen = Mid(sZeichenkette, iLaufindex)
                Exit For
            End If
        Next iLaufindex
 
    End If
End Function

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD