Hvordan sletter man i en streng

sidste bogstav :

private sub rmvlast()
strengen = \"abdcefg
streng2  = \"\"
i = (len(strengen) - 1)
streng2 = streng2 & left(strengen,i)
strengen = streng2

end sub

strengen = \"abdcefg\"
streng2 = \"\"
i = (Len(strengen)) - 1
streng2 = Left(strengen, i)
strengen = streng2

-bedre kode :)

hvordan sletter jeg så f.eks det 5. bogstav i strengen \"abcdefg\"

strengen = \"abdcefg\"
streng2 = \"\"
i = Len(strengen)
sletnr = 5
For j = 1 To i
If j <> sletnr Then
streng2 = streng2 & Mid(strengen, j, 1)
End If
Next j
strengen = streng2

denne her sletter alle a\'er i strengen :
strengen = \"abababab\"
streng2 = \"\"
i = Len(strengen)
slettal = \"a\"
For j = 1 To i
If Mid(strengen, j, 1) <> slettal Then
streng2 = streng2 & Mid(strengen, j, 1)
End If
Next j
strengen = streng2

hvis der er noget af det du ikke forstår så bare sig til :)=

Fornemt, det var lige det jeg skulle bruge. Takker:-)

takker for pts. :0)